Из Base64 в объект OLE

[doober]

Доброго времени суток.
Читаю xml файл,на лету .Попутно декодирую картинку,закодированную в Base64.сохраняю ее в папку.
И одно обязательное условие сохранить паралельно как объект OLE в базе OLE объектов программы ACT Swap?
она двоичных данных не понимает.
Есть ли возможность программым кодом преобразовать картинку и вставить как пакет?
Танцы с бубном вокруг модификации файла не дали

Public Function To_Image(s, F_Fold, F_name) As Boolean
Dim ff As String, F_T
F_T = Split(F_Fold, Application.PathSeparator, -1)
 ff = F_Fold & F_name
  ff = Replace(ff, "/", "\")
  Dim TheBytes() As Byte
 TheBytes = DecodeBase64(s)
 Open (ff) For Binary Access Write As #1
     Put #1, , TheBytes()
Close #1
To_Image = True

End Function