codice:
If IsNumeric(Variabile) = True Then
  'Numerico
Else
  'Non numerico
End If