Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim cText As String = "Hallo wie geht es Dir"
        Dim Suchtext As String = "wie"
 
        MsgBox("Der gesuchte Text beginnt bei der " & cText.IndexOf( _
          Suchtext).ToString & ". Position")
 
    End Sub