VBScript - Checking for a Valid Date

Function DateValid(dv)
    Dim retval : retval = ""
    On Error Resume Next
    retval = FormatDateTime(dv, vbShortDate)
    If err.Number = 0 Then
        DateValid = True
    End If
End Function