Numeric code in textbox

‘===================================================================
Private Sub txtA_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'’Only Numbers in textbox 0r simples signs
   Select Case KeyAscii
      Case Asc("0") To Asc("999")
      Case Asc(".")
              If InStr(1, txtA.Value, ".") > 0 Then
                 KeyAscii = 0
              End If
       Case Asc(",")
               If InStr(1, txtA.Value, ",") > 0 Then
                  KeyAscii = 0
              End If
      Case Else
              KeyAscii = MsgBox("SORRY! Introduce just numbers")
   End Select
End Sub
‘======================================================
hello everybody
I have a userform vba in which I have several textboxs and I intended it to be in each only registered numbering and not text.
For a textbox individually i use the code above, but for several textboxs how to proceed ??
Thank you for your help