Dim fr,br As JavaObject
fr.InitializeNewInstance("java.io.FileReader",Array("c:/temp/testinput.txt"))
br.InitializeNewInstance("java.io.BufferedReader",Array(fr))
Dim st As String = br.RunMethod("readLine",Null)
Do While st <> "null" ' will be "null" at end of file
Log(st)
st = br.RunMethod("readLine",Null)
Loop
br.RunMethod("close",Null)
Dim tr As TextReader
tr.Initialize(File.OpenInput(...))
Dim st As String = tr.ReadLine
Do While st <> Null
Log(st)
If (st = "abc") Then Exit
st = tr.ReadLine
Loop