¿Como leer ficheros de forma mas rápida?

[Jad-Neo]

Que onda comañeros del foro, la cuestión es que ya cree 2 funciones para leer y escribir datos en un archivo, pero la lata es que es byte a byte y se tarda un buen, ¿hay alguna forma de hacerlo más rápido?. Hay les dejo el código de una para que vean:

Código:

Function LoadFile(FName As String, Method As Integer) As String
'En Method 0 es para binario y 1 para textual
Dim Cont&, FLen&, tmpStr$, Num%, opByte As Byte
FLen=FileLen(FName)
Num = FreeFile()
Open FName For Binary Access Read As #Num
For Cont = 1 To FLen
     Get #Num, Cont, opByte
     If (Method = 0) Then
         tmpStr = tmpStr & ChrB$(opByte)
     Else
         tmpStr = tmpStr & Chr$(opByte)
     End If
     DoEvents
Next Cont
LoadFile = tmpStr
Close #Num
End Function

Con esta cargas un archivo y obtienes la matriz de bytes. Espero puedan ayudarme a reducir el tiempo de carga. Gracias

NOTA: He oido por ahí que si uso variables de 4 bytes puede ser que funciones pero no se como.