Function File2StringBinary(strFile) 'As String Dim fs, ts, strData, lngLength Const ForReading = 1 strData = "" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(strFile) Then On Error Resume Next lngLength = fs.GetFile(strFile).Size Set ts = fs.OpenTextFile(strFile, ForReading, True) strData = ts.Read(lngLength) ts.Close On Error Goto 0 End If File2StringBinary = strData End Function