opening text file

I use the following code to open a file into my richtextbox:

Private Sub cmdopen_Click()
Dim filelength

Open "C:\windows\desktop\document1.txt" For Input As #1

filelength = LOF(1)

var1 = Input(filelength, #1)

Form1.RichTextBox1.Text = var1
Close #1
End Sub

This works fine for small text files. However, the file I want to open is 142k. I keep getting the error: Run time error '62'
Input past end of file.

Is there anyway I can resolve this?

Thanks.