Liberar digitação somente de números

[Alex Mauricio]

Bom dia pessoal.

Mais uma vez, espero que vocês tenham como me ajudar.

Fiz o seguinte código para somente liberar a digitação de texto.

If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Then
        KeyAscii = 0
    End If

Agora quero fazer um código para ter somente a digitação de números ( bloqueando texto )

Como faço?

Obrigado

[Jonathan Queiroz]

Você pode fazer o contrário:

If KeyAscii < vbKey0 And KeyAscii > vbKey9 and keyascii<>8 Then
        KeyAscii = 0
    End If

Obs.:

Sempre permita a utilização do ascii 8, por ser a tecla backspace

[Alex Mauricio]

Boa tarde.

Coloquei o código informado, porém o mesmo continua liberando a digitação de TEXTO.

[Fabin]

brother tenta deste jeito

If KeyAscii = 46 Then KeyAscii = 44
    If KeyAscii = 44 And InStr(textbox aqui, ",") <> 0 Then
        KeyAscii = 0
        Exit Sub
    End If
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 44 Then
        KeyAscii = 0
    End If

abraço

t+

[Leandro_Pirozzi]

Tenta assim tb. No evento Keypress

Select Case KeyAscii
     Case vbKeyDelete
     Case vbKeyBack
     Case 48 To 57
     Case Else
             Beep
             KeyAscii = 0
    End Select

boa sorte!!