با سلام
فكر كنم اينم جواب بده من خودم هم استفاده ميكنم
Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
'ONLY NUMBERS AND BACKSPACE
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub