Example - IsNumeric Function

1. Sub Form_Click ()

   1. Dim TestVar          ' Declare variable.

      TestVar = InputBox("Please enter a number, letter, or symbol.")

      If IsNumeric(TestVar) Then          ' Evaluate variable.

      1. MsgBox "Entered data is numeric."          ' Message if number.

      Else

      1. MsgBox "Entered data is not numeric."          ' Message if not.

      End If

   End Sub