vb Code:
  1. If TextBox1.Text <> String.Empty Then
  2. If Not IsNumeric(TextBox1.Text) Then
  3. MsgBox("Numbers Only")
  4. End If
  5. Else
  6. MsgBox("INPUT SOMETHING")
  7. End IF