Public Function ReadFile(Byval sExeName as String) As String
Dim nFile As Integer
Dim arrFile() As Byte
nFile = FreeFile
Open sExeName For Binary As #nFile
ReDim arrFile(LOF(nFile) - 1)
Get #nFile, , arrFile
Close #nFile
ReadFile= Strconv(arrFile,vbUnicode)
End Function