'Primero  paso el XML a string
                Dim XMLDocu As New XmlDocument()
                XMLDocu.Load(txtXmlWS.Text)

               
 'Instancias el WS de Soriana, ya agrege la referencia web y le puse el nombre de WSSoriana
                Dim ServicioSoriana As New WSoriana.wseDocReciboSoapClient()
              
  'Hacer la peticion y cachas la respuesta.
                Dim Respuesta As [String] = ServicioSoriana.RecibeCFD(XMLasString)
' ++++++
                Dim XMLAceptado As String
            XMLAceptado = Respuesta
            
            If XMLAceptado = Respuesta Then

                    txtXmlWS.Text = Respuesta
               
            Else
                MsgBox("Hubo Error, reportarlo a Depto. Sistemas", MsgBoxStyle.OkOnly)

                End If 

'Primero debes pasar tu XML a string
                Dim XMLDocu As New XmlDocument()
                XMLDocu.Load(txtXmlWS.Text)
                Dim XMLString As [String] = XMLDocu.OuterXml

                'CONVIERTO A UTF8
                '----->INICIO
'Declaro utf8 con vara=iable UTF8Encoding
                Dim utf8 As UTF8Encoding = New UTF8Encoding()
                Dim encodedBytes As Byte() = utf8.GetBytes(XMLString)
                '-----> FIN

                'Instancias el WS de Soriana, puse nombre de WSSoriana
                Dim ServicioSoriana As New WSoriana.wseDocReciboSoapClient()
                
'Hacer la peticion y cachar la respuesta.
                Dim Respuesta As [String] = ServicioSoriana.RecibeCFD(XMLString)

                ' ++++++
                Dim XMLAceptado As String
            XMLAceptado = Respuesta
           
            If XMLAceptado = Respuesta Then

                    txtXmlWS.Text = Respuesta
                
            Else
                MsgBox("Hubo Error, reportarlo a Depto. Sistemas", MsgBoxStyle.OkOnly)

                End If