Private Sub RegExpTest()
 
 
  Dim s As String
  Dim r As String
  Dim m As Match
 
  Dim search As String
  Dim oRegEx As RegExp
 
  search = "Department"
 
  s = " Hallo das ist mein Department: Wolfsburg"
 
  Set oRegEx = New RegExp
 
  With oRegEx
    .Pattern = search
    .Global = True
 
    ' --> Alle Matches durchlaufen
    For Each m In .Execute(s)
      r = Mid$(s, m.FirstIndex + m.Length + 1)
 
      Dim oRegExp2 As New RegExp
      Dim m2      As Match
 
      With oRegExp2
        .Pattern = "[A-Za-z]+"
        .Global = True
 
        For Each m2 In .Execute(r)
          Debug.Print m2.Value
        Next m2
      End With
 
    Next
  End With
 
End Sub