Problemas con Web Service

[DanX03]

Aqui mi codigo:

Código:

Public archivo, campos() As String, fecha As String, fechareg As String, nombrearchivo As String, strRuta As String, fechai As String, fechaf As String
Public fechaff As String, folio As String, folio2 As String, objeto As Object, fechaii As String, errores As Integer, periodo As String, arc As XmlDocument, DocumentoXML As XmlDocument
Public Sub Reservacion_HBSI(ByVal Vector As String)
errores = 0
fecha = CStr(Date.Now())
fechareg = Mid(fecha, 7, 4) & Mid(fecha, 4, 2) & Microsoft.VisualBasic.Left(fecha, 2)
campos = Split(Vector, "|")
fechai = Mid(campos(8).ToString, 7, 4) & "-" & Mid(campos(8).ToString, 4, 2) & "-" & Microsoft.VisualBasic.Left(campos(8).ToString, 2)
fechaf = Mid(campos(9).ToString, 7, 4) & "-" & Mid(campos(9).ToString, 4, 2) & "-" & Microsoft.VisualBasic.Left(campos(9).ToString, 2)
folio2 = Microsoft.VisualBasic.Right(folio, 12)
'Generacion del archivo XML
archivo = "<soap:Envelope xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<soap:Header>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<Interface xmlns='http://www.cmf.altiuspar.com' Name='ECPConnect' Version='4.0'>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<PayloadInfo ExpirationDateTime='2014-12-23T07:20:38+00:00' Location='Body' RequestId='" & folio2 & "' RequestorId='HBSi' ResponderId='POSADAS'>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<CommDescriptor DestinationId='POSADAS' RetryIndicator='false' SourceId='HBSi'>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<Authentication Password='super' Username='userHBSi'/>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "</CommDescriptor>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<PayloadDescriptor Name='OTA_HotelResNotifRQ' Version='2003A'>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<PayloadReference SupplierBrandCode='" & campos(23).ToString & "' SupplierChainCode='POSADAS' SupplierHotelCode='" & campos(6).ToString & "'/>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "</PayloadDescriptor>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "</PayloadInfo>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "</Interface>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "</soap:Header>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<soap:Body>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<requestOTAOperationin0 xmlns='http://ws.servicerequest.cmf.altiuspar.com'>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<OTA_HotelResNotifRQ EchoToken='" & folio2 & "' PrimaryLangID='en-us' ResStatus='Commit' Target='Production' TimeStamp='2014-02-13T14:42:00-07:00' Version='1.000' xmlns='http://www.opentravel.org/OTA/2003/05' xmlns:soap-env='http://schemas.xmlsoap.org/soap/envelope/'>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<POS>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<Source>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<RequestorID ID='" & campos(18).ToString & "' Type='18'/>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<BookingChannel Primary='true' Type='2'>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<CompanyName>HBSI</CompanyName>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "</BookingChannel>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "</Source>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "</POS>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<HotelReservations>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<HotelReservation CreateDateTime='" & Format(Now(), "yyyy-MM-ddThh:mm:ss-07:00") & "' CreatorID='" & campos(18).ToString & "' RoomStayReservation='true'>" & Microsoft.VisualBasic.vbNewLine
archivo = archivo & "<UniqueID ID='" & folio & "' Type='14'/>" & Microsoft.VisualBasic.vbNewLine...
arc = ConvertiraXML(archivo)
Try
Dim WSHB = New WSHBSI.EndPointServiceHB
frmarchivo.Show()
WSHB.validate()
WSHB.requestOTAOperation(arc)
MsgBox("El Archivo se ha cargado con exito al Web Services." & Environment.NewLine & "Debes checar el log correspondiente para obtener el Unique ID", MsgBoxStyle.OkOnly, "Registro Posadas 1.0: Aviso")
Catch Ex As Exception
MsgBox("Se produjo un error: " + Ex.Message.ToString(), MsgBoxStyle.Exclamation, "Registro Posadas 1.0: Aviso")
errores = 1
End Try
End Sub