Using the Input func. is too slow !

[Lior]

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:

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?