Opsss você so precisa indicar os Keyascii's que cv n~ quer permitir ou seja, aproveitando o seu proprio codigo, tente esta modificação: Private Sub txtExemplo_KeyPress(KeyAscii As Integer) If KeyAscii <= 48 And KeyAscii >= 57 Then KeyAscii = 0 End If End Sub Acho que vai funcionar, tanta ai e me diz depois se eu ajudei!!! Abraços -- Ozi --