Private Sub RegExpTest3()
 
  Dim s As String
  Dim r As String
  Dim m As Match
 
  Dim search As String
  Dim oRegEx As RegExp
 
  Dim p1 As String
  Dim p2 As String
 
  p1 = "Department*[^A-Za-z]+" 'Es wird auch Departments gefunden
  p2 = "[A-Za-z]+"
 
  search = p1 & p2
 
  s = " Hallo, das sind meine Departments: Wolfsburg Department: Aachen" & _
    "Department: Essen  "
 
  Set oRegEx = New RegExp
 
  With oRegEx
    .Pattern = search
    .Global = True
 
    ' --> Alle Matches durchlaufen
    For Each m In .Execute(s)
 
'      Debug.Print m.Value
 
      Dim oRegExp2 As New RegExp
      With oRegExp2
        .Pattern = p1
        .Global = True
        r = .Replace(m.Value, vbNullString)
      End With
 
      Debug.Print r
 
    Next
  End With
 
End Sub