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