Example - IsNumeric Function

Sub Main()
    Dim TestVar                                    ' Declare variable.
    TestVar = InputBox("Please enter a number, letter, or symbol.")
    If IsNumeric(TestVar) Then                     ' Evaluate variable.
        MsgBox "Entered data is numeric."          ' Message If number.
    Else
        MsgBox "Entered data is not numeric."      ' Message If Not.
    End If
End Sub