[Resolvido]Permitir só numeros e barra no campo

Boa tarde pessoal e um excelente final de semana.

Se for possível, gostaria que me ajudassem, pois tenho em meu form um campo "txtPgto", onde o operador preencherá a forma de Pagamento da seguinte forma: 20/40/60, ou seja numeros e barras e nao pode colocar "," ou escrever nada. tipo "Ent." ou coisa do genero.

Obrigado desde já.
Abços.

Uma solução pode ser assim, no evento "Ao apertar tecla" do seu campo:

Dim PTeclas As String

If KeyCode = 8 Or KeyCode = 111 Then
    PTeclas = "P"
ElseIf KeyCode >= 48 And KeyCode <= 57 Then
    PTeclas = "P"
ElseIf KeyCode >= 96 And KeyCode <= 105 Then
    PTeclas = "P"
Else
    PTeclas = "N"
End If

If PTeclas = "N" Then
    KeyCode = 0
Else
    Exit Sub
End If

Veja se adapta

Private Sub Nome do campo_KeyPress(KeyAscii As Integer)
Const ChNaoPermitidos = "-/\<>?"
If InStr(ChNaoPermitidos, Chr(KeyAscii)) > 0 Then
KeyAscii = 0
Call MsgBox("Caracteres não permitidos...", vbCritical, "Simbolos não permitidos")
End If
End Sub

Obrigado Criquio e Vieira....

Criquio nao consegui pelo seu, mas pelo do vieira deu bem certinbho, só precisei colocar o restante da teclas do alfabeto que tb nao quero que digitem. pois tentei inverter para só teclas permitidas como numero e a / mas dai o "backspace" também negava.

Agradeço a todos amigos....

boa noite e bom final de semana

Abraço e bom trabalho. Obrigado pelo retorno.

Engraçado, eu testei isso aqui antes de postar e funcionou que foi uma beleza. Mas se resolveu, resolvido ficou

Ás vezes o Pepanp funciona nuns casos e noutros não.

Bom não sei o que ocorreu... mas Valeu Criquio...

Um abraço... Boa Semana a todos.