End Sub
Function LoadFile(sFileName As String) As String
Dim lc As Long
Dim l As Long
Dim lf As Long
Dim bt() As Byte
On Error GoTo ErrorHandle
lc = FileLen(sFileName)
If lc <= 0 Then Err.Raise 321
l = FreeFile()
Open sFileName For Binary As #l
lf = l
ReDim bt(lc - 1)
Get #lf, , bt
Close #lf
lf = 0
LoadFile = bt
Erase bt