在文本框中书写时打开和关闭Numlock

Question

您好，所以我有一个带有文本框的用户窗体，该文本框应以特定方式接受输入。只有数字，中间带有点和-。例如：111-111.111-111

一个同事为我提供了一段代码来执行此操作，但是我注意到每次有人在文本框内写东西时，数字锁都会关闭。例如，如果我写1，它将关闭，但是如果我按num1而不是仅仅点击它，它将写整个111-111.111-111。

这是代码，如果有人能发现问题所在并提供帮助，将不胜感激。

Private Sub BoxProduto5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

BoxProduto5.MaxLength = 15

Select Case KeyAscii
    Case 48 To 57 'numericos
        If BoxProduto5.SelStart = 3 Then BoxProduto5.SelText = "-"
        'SendKeys "{End}", False
        If BoxProduto5.SelStart = 7 Then BoxProduto5.SelText = "."
        'SendKeys "{End}", False
        If BoxProduto5.SelStart = 11 Then BoxProduto5.SelText = "-"
        'SendKeys "{End}", False
    Case 8 'Aceita o BACK SPACE
    'Case Else ' o resto é travado
    KeyAscii = 0

End Select
End Sub

当我尝试更改此文本框内的内容时发生了这种情况。