VB Code:
  1. Dim x As String

  2. Open "C:\somefile.txt" For Input As #1

  3. x = Input(LOF(1), 1)

  4. Close #1
There!