[VB] Identificare il contenuto di una textbox

[dops]

opss ho risolto:

Private Sub t_socion_Validate(Cancel As Boolean)
If IsNumeric(t_socion.text) Then
Cancel = False
Else
MsgBox ("Puoi inserire solo numeri nel Campo: 'Socio N.' ")
t_socion.SetFocus
t_socion.SelStart = 0
t_socion.SelLength = Len(t_socion)
Cancel = True
End If
End Sub