Prüfen mehrere TB mit einem Makro

Private Sub TXTmFaTel1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Box as String
Dim UF as Userform
Set UF = "Userform1"
Box = "TXTmFaTel1"
Application.Run "PruefTelefon"
End Sub

Private Function PruefTelefon()
Dim KeyCode As Integer
With Userform(UF).Controls(Box)
If Chr(KeyCode) Like "[0-9,/,-,"" ""]" Then
Mldg = MsgBox("Im Feld " _
& vbLf & "Telefon " _
& vbLf & "sind nur Zahlen 0-9" _
& vbLf & "+ und Leerzeichen erlaubt..." _
, vbOKOnly + vbInformation, "Fehler: Telefon- Nummer")
End If
End With
End Function