s = " Hallo, das sind meine Departments: Wolfsburg Department: Aachen" & _
    " Department: Essen  "

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[s]*[^A-Za-z]+" 'Es wird auch Departments gefunden
  p2 = "[A-Za-z]+"
 
  search = p1 & p2
 
  s = "<Test>" & _
            "<Test>Test</Test>" & _
            " <version>1.6.0a</version>" & _
            "<fingerprint>C6FB-08BF</fingerprint>" & _
            "</Test>" & _
            "_____ Do not edit the content above this line. ____" & _
            "First name: Test" & _
            "Department: Wolfsburg"
 
  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

Gruß
Dirk

--
?Get it right the first time