Buongiorno a tutti,

Ringrazio anticipatamente chiunque risponda al mio quesito.

Sto creando un gestionale di magazzino in VB6, ora mi sto occupando della creazione degli articoli di magazzino.
Nel mio frame di inserimento articoli, ho inserito una text box che riguarda il prezzo e ho dei problemi nel controllare questa textbox.

In pratica quando vado sulla text box relativa al prezzo dell'articolo, controllo se è stato digitato un numero, se cosi non è allora faccio displeare un messaggio d'errore : "INSERIRE UN VALORE NUMERICO" e ripulisco la mia textbox1.
Il problema è che la textbox non si ripulisce, in quanto se io scrivo nella textbox "a", mi da il messaggio d'errore, ma mi displea la "a" che io avevo digitato, quando invece la dovrebbe cancellare.
Il controllo che io faccio è questo:

Private sub text1_KeyPress (KeyAscii As Integer)

If KeyAscii > 96 and KeyAscii < 123
MsgBox "INSERIRE UN VALORE NUMERICO"
text1.text = " "
End if

End Sub

Potete dirmi come risolvere il problema ?