Usando la funzione "IsNumeric"

codice:
If isNumeric(MyString) Then
    'Bla Bla Bla
End if
Ciao