Здравствуйте. Столкнулся с проблемою.Необходимо в текстовом файле найти слово, например, слово “тест” и отсчитать от него некоторое число символов, затем прочитать 5-6 символов и внести их в текстовое поле . Я остановился на этапе поиска слова
В текстовом файле ниже приведу код.

rivate Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim OpenDialog1 As New OpenFileDialog
If OpenDialog1.ShowDialog() = DialogResult.OK Then
Try
Dim fs As FileStream = New FileStream(OpenDialog1.FileName, FileMode.OpenOrCreate, FileAccess.Read)
Dim sr As StreamReader = New StreamReader(fs)
Dim s As String
TextBox3.Text = sr.ReadLine
if(text.IndexOf("word")!= -1)
TextBox3.Text = "den"
End If
TextBox3.Text = "cant find this world"
sr.Close()
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End If
End Sub