Код:
Dim b64 As New CBase64()
plainText$ = b64.encode (inStream)
объект.File64Atach = plainText$
и отдаю
<FILE64ATACH xsi:type="soapenc:Array" soapenc:arrayType="xsd:string[1]">
<item xsi:type="xsd:string">0M8R4KGxGuEA43534535334555.....
Документ с аттачем весит порядка 100 кб.