Using the Input func. is too slow !

Hey...
You know, If I have a file named "Lior.TXT" and its size is 1MB, to paste all the file into a string using the input function takes 8 seconds!!! (on my P500).
I used this code:

Code:

---

Dim Buffer As String
Open "C:\LIOR.TXT" For Binary As #1
  Buffer = Input(LOF(1), #1)
Close

---

If LIOR.TXT size is 1MB, 8 seconds are requierd to finish the program!
If its 2MB, 16 seconds Are requierd! (And so on..)

Any Ideas So It Wont Take That Long?

Use get instead

Man...thanks for trying to help,
But when I declare Buffer as String and replace the line:

Code:

---

Buffer=Input(LOF(1),#1)

---

with this piece of code:

Code:

---

Get #1, ,Buffer

---

The Buffer just gets nothing, I mean it gets "".

Any Idead How To Use The Get Statement Correctly To Load All Of The File Opened In Binary Mode Into A String?