how about this sas?
Code:
Function LoadBuffer(ByVal FileName as String) as String
   f = FreeFile
   Open FileName for Binary as f
     LoadBuffer = Space(lof(f))
     Get #f, , LoadBuffer
   Close f
End Function