Comment obtenir chiffre directement clavier portable ?

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 Dim pos As Integer
 pos = InStr("&é(-è_çà" & Chr(34) & Chr(39) & ".=", Chr(KeyAscii))
 If pos > 0 Then KeyAscii = Asc(Mid("1256789034,-", pos, 1))
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
        MsgBox "veuillez saisir un chiffre compris entre 0 et 9"
    End If
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 38: KeyAscii = 49 '<-- caractère & = 1
        Case 233: KeyAscii = 50 '<-- caractère é = 2
        Case 34: KeyAscii = 51 '<-- caractère " = 3
        Case 39: KeyAscii = 52 '<-- caractère ' = 4
        Case 40: KeyAscii = 53 '<-- caractère ( = 5
        'etc...
    End Select
End Sub