nella keypress della text :

If Not KeyAscii = 8 Then '<--- controllo se vuoi cancellare un
If KeyAscii < 48 Or KeyAscii > 57 Then 'numero inserito
KeyAscii = 0
End If
End If

Ciao a presto
Jefferson