Diese Funktionen sind Bestandteil des Excel-Add-Ins

Public Function text_rechts_von(strText As String, strSep As String)
    text_rechts_von = Right(strText, Len(strText) - InStr(strText, strSep))
End Function
Public Function text_links_von(strText As String, strSep As String)
    text_links_von = Left(strText, InStr(strText, strSep) - 1)
End Function