'save to file
Open "c:\a2.xml" For Binary As # 1 
Put # 1 , , s
Close # 1 
при записи размер  1 .8M


'get from file
Open "c:\a2.xml" For Binary As # 1 
get # 1 , , s
Close # 1 
(преобразование и запись)

Function ReadBinaryFile(FileName)
     Const adTypeBinary =  1 
     Dim BinaryStream
     Set BinaryStream = CreateObject("ADODB.Stream")
     BinaryStream.Type = adTypeBinary
     BinaryStream.Open
     BinaryStream.LoadFromFile FileName
     ReadBinaryFile = BinaryStream.Read
     BinaryStream.Close
     Set BinaryStream = Nothing
  End Function

Function SaveBinaryData(FileName, Text)
     Const adTypeBinary =  1 
     Const adTypeText =  2 
     Const adSaveCreateOverWrite =  2 
     Dim BinaryStream As ADODB.Stream
     Set BinaryStream = CreateObject("ADODB.Stream")
     BinaryStream.Type = adTypeBinary
     BinaryStream.Open
     With CreateObject("ADODB.Stream")
        .Type = adTypeText
        .Open: .WriteText Text
        .position =  2 
        .CopyTo BinaryStream, Len(Text) *  2 
        .Close
     End With
     BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
     BinaryStream.Close
     Set BinaryStream = Nothing
End Function