Example - IsDate Function

Sub Main
Dim MyVar1 As Integer, MyVar2, MyCheck1, MyCheck2
    MyVar1 = 345
    MyVar2 = "January 1, 1987"
    MyCheck1 = IsDate(MyVar)
    MyCheck2 = IsDate(MyVar2)
    MsgBox  "Is this a date? " & MyVar1 & Chr(10) & MyCheck1
    MsgBox  "Is this a date? " & MyVar2 & Chr(10) & MyCheck2
End Sub