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!