Coloque no evento KeyPress do textbox que você quer receber apenas números, o código abaixo. Supondo que seu textbox se chama txtTeste:
Private Sub txt_Teste_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Verifica qual é o caracter digitado na caixa de texto. Aceita somente _
números e backspace
If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8) Then
KeyAscii = 0
End If
End Sub
Postado : 17/02/2014 5:36 pm