Funtion LoadFile (ByVal FileName As String, Optional IsText As Boolean) As String
Dim tmpF() As Byte, FLen As Long
Dim Num As Integer, tmpStr As String
On Error Goto ErrLog
FLen=FileLen(FileName)
Num=FreeFile()
Open FileName For Binary Access Read As #Num
If IsText = False Then
'Para cargar la matriz de bytes
ReDim tmpF(0 To (FLen-1)) As Byte
Get #1, ,tmpF
LoadFile=tmpF
Else
'Para cargar como cadena de texto
'(ideal para archivos de texto)
tmpStr=String(FLen, 0)
Get #1, ,tmpStr
LoadFile=tmpStr
End If
Close #Num
'Se libera memoria
Erase tmpF: tmpStr=""
Exit Function
ErrLog:
Erase tmpF: tmpStr=""
Error Err.Number
End Function