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

Gruß
Dirk

--
?Get it right the first time