Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim test As String = "Obst1Gemüse"
        Dim startgemuese As Integer = test.IndexOf("Gemüse")
        MessageBox.Show(test.Substring(0, startgemuese) & " und " & _
          test.Substring(startgemuese))
    End Sub
End Class