Private Sub Form_Load()
 
  Dim s As String
  Dim r As String
 
  Dim search As String
 
  search = "Department"
 
  s = " Hallo das ist mein Department: Wolfsburg"
 
  r = Right$(s, InStrRev(s, search) - Len(search))
  Debug.Print r
 
  RegExpTest
 
End Sub
 
Private Sub RegExpTest()
 
 
  Dim s As String
  Dim r As String
 
  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
  End With
 
  If oRegEx.Test(s) Then
    Debug.Print "RegExp liefert aber nicht den Teilstring hinter ""s"""
  End If
 
End Sub

Gruß
Dirk

--
?Get it right the first time