Function CutAfter(strLookIn As String, strToFind As String) As String

Dim dblPosition, dblLength As Double
Dim strResult As String

dblLength = Len(strToFind)

'Find the string within the cell.
dblPosition = Application.WorksheetFunction.Find(strToFind, strLookIn)

'Assign the characters up to the break to a new string.
CutAfter = Left(strLookIn, dblPosition + dblLength - 1)

End Function