Listing B

oRead = oFile.OpenText(“C:\sample.txt”) 
  While oRead.Peek <> -1
         LineIn = oRead.ReadLine()
  End While
  oRead.Close()