Local oWEBSER As "MSSOAP.SoapClient30"
oWEBSER = Createobject("MSSOAP.SoapClient30")
WRESWEB = oWEBSER.GeneraTimbre(WREQUEST)
Donde WREQUEST:
<?xml version="1.0" encoding="utf-8" ?>
<soap:Header>
<AuthenticationHeader>
<UserName>autofac_t</UserName>
<Password>6Pj!N+5sbQ$4=t8Y</Password>
</AuthenticationHeader>
</soap:Header>
<soap:Body>
<cfdiBytes>PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0idXRmLTgiID8+DQoNCjxjZmRpOkNvbXByb2JhbnRlIHhtbG5zOmNmZGk9Imh0dHA6Ly93d3cuc2F0LmdvYi5teC9jZmQvMyIgeG1sbnM6eHNpPSJodHRwOi8vd3d3LnczLm9yZy8yMDAxL1hNTFNjaGVtYS1pbnN0YW5jZSIgeHNpOnNjaGVtYUxvY2F0aW9uPSJodHRwOi8vd3d3LnNhdC5nb2IubXgvY2ZkLzMgaHR0cDovL3d3dy5zYXQuZ29iLm14L3NpdGlvX2ludGVybmV0L2NmZC8zL2NmZHYzMi54c2QiIHZlcnNpb249IjMuMiIgc2VyaWU9IkEiIGZvbGlvPSIxNzQxNiIgZmVjaGE9IjIwMTYtMDEtMDFUMTM6MzM6NTAiIHNlbGxvPSJLRnl2NGhVN3poc0QxSWU2VG5aMHpBNjNpUHhaR3QveUZ4UlRMSkhvQzRYbGEydTMrYldaVVUyTVRZNXJIWTJVRXBlWmFtZHIyWFZUQW4rZmVybXpiZ2E3cFU3cFBDWUtpT3NOZTBGbHZRd1VLUVJDOVJDMno0ekNJazl4eWxSNUtMdXR1bllJaUdWQmc4ZEdVTVZySmp2OVRWVUZkNmdqMGZrT0tqWGxTQVU9IiBmb3JtYURlUGFnbz0iUEFHTyBFTiBVTkEgU09MQSBFWEhJQklDSU9OIiBub0NlcnRpZmljYWRvPSJjb24wNzEwMTdpeTNfMTIxMTI3MSIgY2VydGlmaWNhZG89Ik1JSUVZVENDQTBtZ0F3SUJBZ0lVTWpBd01ERXdNREF3TURBeU1EQXdNREUwTXpjd0RRWUpLb1pJaHZjTkFRRUZCUUF3Z2dGY01Sb3dHQVlEVlFRRERCRkJMa011SURJZ1pHVWdjSEoxWldKaGN6RXZNQzBHQTFVRUNnd21VMlZ5ZG1samFXOGdaR1VnUVdSdGFXNXBjM1J5WVdOcHc3TnVJRlJ5YVdKMWRHRnlhV0V4T0RBMkJnTlZCQXNNTDBGa2JXbHVhWE4wY21GamFjT3piaUJrWlNCVFpXZDFjbWxrWVdRZ1pHVWdiR0VnU1c1bWIzSnRZV05wdzdOdU1Ta3dKd1lKS29aSWh2Y05BUWtCRmhwaGMybHpibVYwUUhCeWRXVmlZWE11YzJGMExtZHZZaTV0ZURFbU1DUUdBMVVFQ1F3ZFFYWXVJRWhwWkdGc1oyOGdOemNzSUVOdmJDNGdSM1ZsY25KbGNtOHhEakFNQmdOVkJCRU1CVEEyTXpBd01Rc3dDUVlEVlFRR0V3Sk5XREVaTUJjR0ExVUVDQXdRUkdsemRISnBkRzhnUm1Wa1pYSmhiREVTTUJBR0ExVUVCd3dKUTI5NWIyRmp3NkZ1TVRRd01nWUpLb1pJaHZjTkFRa0NEQ1ZTWlhOd2IyNXpZV0pzWlRvZ1FYSmhZMlZzYVNCSFlXNWtZWEpoSUVKaGRYUnBjM1JoTUI0WERURXpNRFV3TnpFM05EQXdOMW9YRFRFM01EVXdOekUzTkRBd04xb3dnZHN4S1RBbkJnTlZCQU1USUVGRFEwVk5JRk5GVWxaSlEwbFBVeUJGVFZCU1JWTkJVa2xCVEVWVElGTkRNU2t3SndZRFZRUXBFeUJCUTBORlRTQlRSVkpXU1VOSlQxTWdSVTFRVWtWVFFWSkpRVXhGVXlCVFF6RXBNQ2NHQTFVRUNoTWdRVU5EUlUwZ1UwVlNWa2xEU1U5VElFVk5VRkpGVTBGU1NVRk1SVk1nVTBNeEpUQWpCZ05WQkMwVEhFRkJRVEF4TURFd01VRkJRU0F2SUVoRlIxUTNOakV3TURNMFV6SXhIakFjQmdOVkJBVVRGU0F2SUVoRlIxUTNOakV3TUROTlJFWk9VMUl3T0RFUk1BOEdBMVVFQ3hNSWNISnZaSFZqZEc4d2daOHdEUVlKS29aSWh2Y05BUUVCQlFBRGdZMEFNSUdKQW9HQkFKNENPQUN0REt6R0R2OVYwVzNMTjUwOHJjMmVJQ3lpNWczU3NHckpFMVo0OWNKbmdGdVI2RGdYV1VPODVUdS9ORzNyNGFYT3ZaczZiR0c2ZEVHN0RjYjFhQzVka0YreUk2UGxIS3NpVGs1bnRKL2FFVEEvcmNrVnliOWNtZUNoNE1xZm8wT0d4TW1zRXp4VWw3cW0zb252MmxkbWs2cEptU0lRR1RIek1aWWJBZ01CQUFHakhUQWJNQXdHQTFVZEV3RUIvd1FDTUFBd0N3WURWUjBQQkFRREFnYkFNQTBHQ1NxR1NJYjNEUUVCQlFVQUE0SUJBUURXRyswU295NXZ4bWNsREtPcnZ5SGpBYlFHazRCUHluYkNqT1dlRlo1czdIT3B3NlRTU2U1NlIzM24vWk8yQ3ZDNC9JQ3dyTmdsK2RyeWNmVTVaQTVkM1RmbHNPOWpnVEJzRFNxNUxESjloMDYySWFkRDhvNE1nNUJUYjFDMkZBaU1EMTZESHd4VmdZWnZrMndtWFEwbXJ4TG9NdTJ3aUJwYnZ3b1hKbE9pb2NpVXhYUXRsdWttanptZVRvdnUxWFREZDUwZ2J6dFlCSElkak9wQWpYbW15dHdyd05HbVdHK0QzSmZqaHR5ZHkxR1NPVHROK2hHRWxZZzcxdkxORmVrSnlFa2M0cGtXT1JHMHhtd1JmL3Jub1NGakh5ay81ZHVSVXRoNkdFdlFFZndBbFpJbjdyc3R0R3p1YkxPOVFZNUJNNlAza205OG1QdDdOblYvU1N4byIgc3ViVG90YWw9Ijc1MCIgVGlwb0NhbWJpbz0iMS4wIiBNb25lZGE9Ik1YUCIgdG90YWw9Ijg3MCIgbWV0b2RvRGVQYWdvPSJOQSIgdGlwb0RlQ29tcHJvYmFudGU9ImluZ3Jlc28iIEx1Z2FyRXhwZWRpY2lvbj0iSEVST0UgREUgTkFDQVRBWiAzNjAyIE5VRVZPIExBUkVETyBUQU1BVUxJUEFTIE1FWElDTyA4ODA0MCI+DQogICAgPGNmZGk6RW1pc29yIHJmYz0iQ09OMDcxMDE3SVkzIiBub21icmU9IkNPTlNBRElOVCwgUy5DLiI+DQogICAgICAgIDxjZmRpOkRvbWljaWxpb0Zpc2NhbCBjYWxsZT0iSEVST0UgREUgTkFDQVRBWiIgbm9FeHRlcmlvcj0iMzYwMiIgY29sb25pYT0iRkVSUk9DQVJSSUxFUkEgMSIgbXVuaWNpcGlvPSJOVUVWTyBMQVJFRE8iIGVzdGFkbz0iVEFNQVVMSVBBUyIgcGFpcz0iTUVYSUNPIiBjb2RpZ29Qb3N0YWw9Ijg4MDQwIiAvPg0KICAgICAgICA8Y2ZkaTpSZWdpbWVuRmlzY2FsIFJlZ2ltZW49IlJlZ2ltZW4gR2VuZXJhbCBkZSBsZXkgUGVyc29uYXMgTW9yYWxlcyIgLz4NCiAgICA8L2NmZGk6RW1pc29yPg0KICAgIDxjZmRpOlJlY2VwdG9yIHJmYz0iQVJUODcwNTE1OU0wIiBub21icmU9IkFSVElHUkFGLCBTLkEuIERFIEMuVi4uLi4iPg0KICAgICAgICA8Y2ZkaTpEb21pY2lsaW8gY2FsbGU9IkNBUlJFVEVSQSBBIEdBUkNJQSIgbm9FeHRlcmlvcj0iS00gMS4yIiBub0ludGVyaW9yPSJJTlQgNiIgbXVuaWNpcGlvPSJTQU5UQSBDQVRBUklOQSIgZXN0YWRvPSJOVUVWTyBMRU9OIiBwYWlzPSJNRVhJQ08iIGNvZGlnb1Bvc3RhbD0iNjYzNTAiIC8+DQogICAgPC9jZmRpOlJlY2VwdG9yPg0KICAgIDxjZmRpOkNvbmNlcHRvcz4NCiAgICAgICAgPGNmZGk6Q29uY2VwdG8gY2FudGlkYWQ9IjEiIHVuaWRhZD0iTm8gQXBsaWNhIiBkZXNjcmlwY2lvbj0iSE9OT1JBUklPUyBBR0VOVEUgQURVQU5BTCIgdmFsb3JVbml0YXJpbz0iNDUwIiBpbXBvcnRlPSI0NTAiIC8+DQogICAgICAgIDxjZmRpOkNvbmNlcHRvIGNhbnRpZGFkPSIxIiB1bmlkYWQ9Ik5vIEFwbGljYSIgZGVzY3JpcGNpb249IlNFUlZJQ0lPIENPTVBMRU1FTlRBUklPIiB2YWxvclVuaXRhcmlvPSIzMDAiIGltcG9ydGU9IjMwMCIgLz4NCiAgICA8L2NmZGk6Q29uY2VwdG9zPg0KICAgIDxjZmRpOkltcHVlc3RvcyB0b3RhbEltcHVlc3Rvc1RyYXNsYWRhZG9zPSIxMjAiPg0KICAgICAgICA8Y2ZkaTpUcmFzbGFkb3M+DQogICAgICAgICAgICA8Y2ZkaTpUcmFzbGFkbyBpbXB1ZXN0bz0iSVZBIiB0YXNhPSIxNiIgaW1wb3J0ZT0iMTIwIiAvPg0KICAgICAgICA8L2NmZGk6VHJhc2xhZG9zPg0KICAgIDwvY2ZkaTpJbXB1ZXN0b3M+DQo8L2NmZGk6Q29tcHJvYmFudGU+DQo=</cfdiBytes>
</GeneraTimbre>
</soap:Body>
</soap:Envelope>
Pero me manda el error: Type conversión failure for element cfdiBytes.