Dim x As Integer
 
    x = InStr("Obst1Gemüse", "Gemüse")
 
    Dim a As String
    Dim b As String
    Dim c As String
 
    a = Left("Obst1Gemüse", x - 1)
    MsgBox a
    b = Mid("Obst1Gemüse", x)
    MsgBox b
    c = a & "und" & b
    MsgBox c