Dim myFile As New IO.StreamReader("c:\mytext.txt", _
          System.Text.Encoding.GetEncoding(1252))
        Dim myFileContent As String = myFile.ReadToEnd()
        Dim myPos As Int32 = myFileContent.IndexOf("Suchtext")
        If myPos > -1 Then
            Messagebox.Show("Gefunden an Position: " & mypos
        End If
        myFile.Close()

MfG.
Fabian Stern
-
info@smart-coding.com
http://www.smart-coding.com