Ciao
codice:
if IsNumeric(Valore) Then
'.............
End If
oppure

codice:
if not IsNumeric(Valore) Then
'.............
End If

Facci sapere...
Ciao