Gibt es bei der Replace-Funktion eine Möglichkeit mehrere Zeichen "gleichzeitig" zu ersetzen?

Mein Code sieht nun folgendermaßen aus:

'Funktion, die die Anzahl gefundener Buchstaben in Zellen und Zellbereichen ausgibt

Public Function AnzahlBuchstaben(ParamArray AlleArgumente() As Variant) As String
 
Dim Argument As Variant
Dim Zelle As Range
Dim KonkatinierterString As String
Dim Zwischensumme As Long
   
For Each Argument In AlleArgumente
    Select Case TypeName(Argument)
        Case "String", "Double"
            KonkatinierterString = KonkatinierterString & CStr(Argument)
        Case "Range"
            For Each Zelle In Argument
                KonkatinierterString = KonkatinierterString & CStr(Zelle)
            Next Zelle
    End Select
Next Argument
  
  Zwischensumme = Len(KonkatinierterString)
  KonkatinierterString = LCase(KonkatinierterString)
  KonkatinierterString = Replace(KonkatinierterString, "a", "")
  KonkatinierterString = Replace(KonkatinierterString, "b", "")
  KonkatinierterString = Replace(KonkatinierterString, "c", "")
  KonkatinierterString = Replace(KonkatinierterString, "d", "")
  KonkatinierterString = Replace(KonkatinierterString, "e", "")
  KonkatinierterString = Replace(KonkatinierterString, "f", "")
  KonkatinierterString = Replace(KonkatinierterString, "g", "")
  KonkatinierterString = Replace(KonkatinierterString, "h", "")
  KonkatinierterString = Replace(KonkatinierterString, "i", "")
  KonkatinierterString = Replace(KonkatinierterString, "j", "")
  KonkatinierterString = Replace(KonkatinierterString, "k", "")
  KonkatinierterString = Replace(KonkatinierterString, "l", "")
  KonkatinierterString = Replace(KonkatinierterString, "m", "")
  KonkatinierterString = Replace(KonkatinierterString, "n", "")
  KonkatinierterString = Replace(KonkatinierterString, "o", "")
  KonkatinierterString = Replace(KonkatinierterString, "p", "")
  KonkatinierterString = Replace(KonkatinierterString, "q", "")
  KonkatinierterString = Replace(KonkatinierterString, "r", "")
  KonkatinierterString = Replace(KonkatinierterString, "s", "")
  KonkatinierterString = Replace(KonkatinierterString, "t", "")
  KonkatinierterString = Replace(KonkatinierterString, "u", "")
  KonkatinierterString = Replace(KonkatinierterString, "v", "")
  KonkatinierterString = Replace(KonkatinierterString, "w", "")
  KonkatinierterString = Replace(KonkatinierterString, "x", "")
  KonkatinierterString = Replace(KonkatinierterString, "y", "")
  KonkatinierterString = Replace(KonkatinierterString, "z", "")
  KonkatinierterString = Replace(KonkatinierterString, "ß", "")
  KonkatinierterString = Replace(KonkatinierterString, "ä", "")
  KonkatinierterString = Replace(KonkatinierterString, "ö", "")
  KonkatinierterString = Replace(KonkatinierterString, "ü", "")
  AnzahlBuchstaben = Zwischensumme - Len(KonkatinierterString)
  
End Function


Sub SetFunctionInfos()
    Application.MacroOptions Macro:="AnzahlBuchstaben", Description:="Funktion zur Bestimmung der Anzahl von vorkommenden Buchstaben", Category:=9
End Sub