Originariamente inviato da dops
guarda come ho fatto ma non funziona:
codice:
Private Sub t_socion_LostFocus()
If t_socion.text <> Chr(keycode = "1") Then
MsgBox ("diverso")
End If
End Sub
perchè?
Il controllo sui dati inseriti nel textbox lo devi fare nell'evento validate e se c'e' qualche cosa di errato, visualizzi un msg di errore e imposti a true il parametro Cancel.

Se vuoi impedire che vengano inseriti caratteri non validi nel momento esatto in cui vengono digitati, fai come ti ho detto io.

L'evento lost focus non ha parametri, quindi il keycode che hai usato tu e' errato e non si riferisce al valore del carattere che e' stato immesso.