Vincolare a digitare solo cifre all'interno dii TextBox

[yyzyyz]

posto un mio vekkio codice ke a parere di altre persone è ok.

Private Sub text1_change()
    Dim txtlen As Double
    On Error Resume Next
    If Not IsNumeric(Text1.Text) Then
        txtlen = Len(Text1.Text) - 1
        Text1.Text = Mid(Text1.Text, 1, txtlen)
        Text1.SelStart = txtlen + 1
    End If
End Sub

vekkio 3d