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)