Dim objStreamReader As IO.StreamReader = New System.IO.StreamReader("C:\abc\123.txt") Dim contentsRead As String = objStreamReader.ReadToEnd objStreamReader.Close() 'Dim count As Integer Dim str As String str = "test" If contentsRead.Contains("test") = True Then MessageBox.Show(contentsRead) End If