Fazer campo Txt aceitar só números no Access e VB

Tanto pela minha necessidade quanto pela de vocês companheiros, estou postando esse código para auxiliar no nosso trabalho é muito útil principalmente para campos de CPF e CNPJ ou demais que você não pode por máscara.

Verifique no KeyPress da Text Box se o KeyAscii é um tipo válido. Se não for, zere-o que assim ele será cancelado.

Private Sub txtCampo_KeyPress(KeyAscii As Integer)
If Not IsNumeric(CHR$(KeyAscii)) Then
' Não é número
KeyAscii = 0
End If
End Sub

O KeyAscii volta o código Asc, o CHR$ transforma ele no seu valor real, assim você pode verificá-lo.

Espero ter ajudado,

Créditos para o colega (Julay)

Muito bom, só que impede o uso do Backsapce!
Tem como liberar o backspace?
Valeu

Boa tarde

No Key Press


Private Sub Comp_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 44, 48 To 57 ' {Backspace}, {,}, {0} a {9}, aceita estes caracteres. ' Continua
Case 46 ' {.}, troca ponto por virgula.
KeyAscii = 44 ' {,}
Case Else
KeyAscii = 0 ' Demais teclas, não aceita.
End Select
End Sub

ótimo! Funcionou
Obrigado Assis!!!