strsuchen = txtsuchen.Text.Trim
        strpfad = txtpfad.Text.Trim
        strfile = ""
 
 
        objLesen = New StreamReader(strpfad & "\" & strfile & ".doc")
 
        strdateien = objLesen.ReadToEnd()
 
 
        If strdateien.Contains(strsuchen) Then
            MsgBox(strsuchen)
            txtdata.Text = strsuchen & " " & strpfad & "\" & strfile & ".doc"
        Else
            MessageBox.Show("nix gefunden")
        End If
 
 
 
        objLesen.Close()
        objLesen = Nothing