With New ADODB.Stream

    .Type = adTypeBinary

    .Open

    .Write bin

    .Flush

    .SaveToFile saveFilePath, adSaveCreateOverWrite

End With