i use this code to open text files, but it cant open large ones...
is there a better code?

VB Code:
  1. Open Filename For Input As #1

  2.        Do While Not EOF(1)

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

  4.        Loop

  5.     Close #1