Scusa era così:

codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Text1.Text = ""
    KeyAscii = 0
End Sub