Keine Sonderzeichen in mehreren Textboxen

Sub txt_AuftragsNr_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 65 To 90, 48 To 57 'Grossbuchstaben, Zahlen
Case 97 To 122 'Kleinbuchstaben
Case Else
MsgBox "Es sind keine Sonderzeichen erlaubt", vbExclamation
KeyAscii = 0
End Select
End Sub

Nun möchte ich diese Überprüfung auch noch auf weitere Textboxen ( txt_Name, txt_Vorname usw.) in der gleichen Userform anwenden, aber irgendwie stehe ich auf der Leitung wie ich das anstellen soll, dass ich nicht für jede einzelne Textbox die ganze routine schreiben muss.
Kann mir da jemand einen Typ geben?
Besten Dank