[Color=Blue]Dim[/COLOR] sReader [Color=Blue]As[/COLOR] [Color=Blue]New[/COLOR] IO.StreamReader([Color=Blue]New[/COLOR] IO.FileStream("C:\test.txt", IO.FileMode.Open))
[Color=Blue]Dim[/COLOR] strLine [Color=Blue]As[/COLOR] [Color=Blue]String
[/COLOR] [Color=Blue]While[/COLOR] [Color=Blue]Not[/COLOR] sReader.Peek
strLine = sReader.ReadLine [Color=Green]'///[/COLOR] [Color=Green]make[/COLOR] [Color=Green]the[/COLOR] [Color=Green]string[/COLOR] [Color=Green]strLine[/COLOR] [Color=Green]hold[/COLOR] [Color=Green]the[/COLOR] [Color=Green]current[/COLOR] [Color=Green]line[/COLOR] [Color=Green]of[/COLOR] [Color=Green]text[/COLOR] [Color=Green]being[/COLOR] [Color=Green]read[/COLOR] [Color=Green].[/COLOR] [Color=Green]
[/COLOR] [Color=Blue]If[/COLOR] [Color=Blue]Not[/COLOR] strLine.IndexOf("shall") = -1 [Color=Blue]Then[/COLOR] [Color=Green]'///[/COLOR] [Color=Green]if[/COLOR] [Color=Green]the[/COLOR] [Color=Green]line[/COLOR] [Color=Green]contains[/COLOR] [Color=Green]the[/COLOR] [Color=Green]word[/COLOR] [Color=Green]"[/COLOR] [Color=Green]shall[/COLOR] [Color=Green]"
[/COLOR] [Color=Green]'///[/COLOR] [Color=Green]do[/COLOR] [Color=Green]stuff[/COLOR] [Color=Green].[/COLOR] [Color=Green]
[/COLOR] [Color=Blue]End[/COLOR] [Color=Blue]If
[/COLOR] [Color=Blue]End[/COLOR] [Color=Blue]While
[/COLOR] sReader.Close()