codice:
If IsNumeric(Text1.Text) Then
   MsgBox "E' un numero"
End If