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

Dim dblPosition, dblTotalLength As Double
Dim dblSubLength
Dim strResult As String

'Get the string to search for and determine its length.
dblTotalLength = Len(strLookIn)
dblSubLength = 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.
strResult = Right(strLookIn, dblTotalLength-dblPosition-dblSubLength+1)

'Assign the string to the active cell.
CutBefore = strResult

End Function