Dim strSuchbegriff As String
Dim strZeile As String
Dim intPos As Integer
 
strSuchbegriff = "Drucker"
strZeile = "BZ EG Drucker BZ EG"
intPos = InStr(1, strZeile, strSuchbegriff)
 
If intPos > 0 Then
    MsgBox Left(strZeile, intPos - 1)
End If