My code is below

Option Explicit

Dim objStream
Dim xmlHTTP

set xmlHTTP=createo bject("MSXML2.X MLHTTP.3.0")

Set objStream = CreateObject("A DODB.Stream")

objStream.Type = 1 ' adTypeBinary

objStream.Open

objStream.LoadF romFile “myFile”.Value

...