Listing C

Dim intSingleChar as Integer
  Dim cSingleChar as String
    oRead = oFile.OpenText(“C:\sample.txt”)
    While oRead.Peek <> -1 
    intSingleChar = oRead.Read() 
    ‘ Convert the integer value into a character 
    cSingleChar = Chr(intSingleChar) 
    End While