Option Explicit

Public Function GetRegExpString(ByVal vsStingIn As String, _
      ByVal vsPattern As String) As String

  Dim objRegExp As RegExp

  Set objRegExp = New RegExp

  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.MultiLine = True

  objRegExp.Pattern = vsPattern
  GetRegExpString = objRegExp.Replace(vsStingIn, "")

  Set objRegExp = Nothing
End Function

Dim strText    As String
Dim strPattern As String
Dim strRetStr  As String

strText = "Text mit Zahlen (12-34) gemischt, der " & _
          "gefiltert werden soll 100"

strPattern = "[^\d\s$]"
strRetStr = GetRegExpString(strText, strPattern)
MsgBox strRetStr

'Der Begriff 'white space' (zu Deutsch: 'Weiße Zeichen')
'umfasst in diesem Zusammenhang sowohl Leerzeichen,
'Tabulatoren sowie Zeilenvorschübe.
 
'Alle Zahlen ohne 'white spaces'
'(ohne Zeilenvorschübe, Leerzeichen, Tabulatoren)
"[^\d$]"

'Alle Zahlen mit 'white spaces'
'(inkl. Zeilenvorschübe, Leerzeichen, Tabulatoren)
"[^\d\s$]"

'Alle Zahlen ohne Leerzeichen, mit Zeilenvorschub
"[^\d\f\n\r\v$]"

'Text ohne Zahlen, mit 'white spaces'
"[\d$]"

'Text ohne Zahlen, ohne 'white spaces'
"[\d\s$]"

'Text ohne Zahlen, mit Leerzeichen, ohne Zeilenvorschub
"[\d\f\n\r\v$]"

'Text inkl. Zahlen ohne 'white spaces'
"[^\S$]"

'Text inkl. Zahlen ohne Zeilenvorschub
"[\f\n\r\v$]"