Imports System.IO

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
        Dim _TextStream As New StreamReader("C:\AILog.txt")
        Dim _strText, _strSuche, _strWort As String
 
        _strText = _TextStream.ReadToEnd()
        _TextStream.Close
        _TextStream = Nothing
 
        _strSuche = " Dein Wortteil "
 
        For Each wort As String In _strText.Split(" ")
            If wort.Contains(_strSuche) Then
                _strWort = wort
                MsgBox(_strWort)
                Exit For
            End If
        Next
 
    End Sub