[VB] Identificare il contenuto di una textbox

[dops]

vabbè ho risolto così:

Private Sub t_socion_Validate(Cancel As Boolean)
If IsNumeric(t_socion.text) Then
Cancel = False
Else
MsgBox ("Puoi inserire solo numeri in questo campo")
End If
End Sub

se hai qualche altra soluzione ti prego di farmelo sapere