Originariamente inviato da Gigi84
prova a mettere alla fine della sub Keiascii = 0
GULP!....:master:

E considerare un approccio diverso?
Ti crei una variabile Boolean visibile a livello di modulo che imposti a falso quando il textbox riceve il focus;
nell'evento keypress del Textbox, se la var Booleana e' false, la imposti a vera e automaticamente cancelli il carattere digitato, poi lasci tutto come', salvo impostare a false nell'evento validate del textbox il valore della var booleana

La', qst e' il codice, forse rende meglio l'idea:
Apri un progetto e metti un textbox all'interno.

codice:
Option Explicit
Dim blnSaltaCar   As Boolean

Private Sub Text1_GotFocus()
blnSaltaCar = False
End Sub

Private Sub Form_Load()
   Text1.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If Not blnSaltaCar Then
      blnSaltaCar = True
      KeyAscii = 0
   End If
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
blnSaltaCar = False
End Sub
...pulito e liscio come il sedere di un bimbo...