Kun pos./neg. tal i textbox - userform (KeyAscii - godt/skidt?)

Har lavet følgende kode, som også virker som den skal.

Kan man slå de to sub'er sammen?

Ved godt den sidste egentlig kunne være rigeligt idet den fanger alle andre indtastninger, men ved at bruge Ascii så vil man som bruger ikke kunne bruge tid på at taste forkert.

Kan jeg være sikker på man kan bruge macroen over hele verden, når jeg indsnævre indtasningsmulighederne ved brug af Ascii i sub KeyPress?

Ved negative tal må man kun kunne indtaste minus på den første position, bruger jeg ikke "Not IsNumeric(.Text)" i exit sub så vil sub KeyPress ikke fange denne fejl.

Så lige nu fanger jeg fejlen i exit subben, når man forlader textboxen. Kan dette laves i sub KeyPress?

Min kode er som følgende:
Private Sub txtMaximum_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack _
        Or KeyAscii = 45 Then
        Exit Sub
    Else: KeyAscii = 0
        Beep
    End If
End Sub

Private Sub txtMaximum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
With Me.txtMaximum
  If Not IsNumeric(.Text) Or Len(.Text) > 23 Then
  MsgBox "Amount is too long. " _
  & "Please try again", vbExclamation, ""
  Cancel = True
  .SetFocus
  .SelStart = 0
  .SelLength = Len(.Text)
  End If
End With
  Me.txtMaximum.Value = Format((Me.txtMaximum.Value), "#,###0;(#,###0)")
End Sub