Envio XML com MSXML2

Pessoal,

Estou tentando efetuar o envio de um arquivo xml que está salvo em meu computador para um WebService para posteriormente receber uma resposta do mesmo.

Encontrei o código abaixo e tentei alterá-lo com os meus endereços e diretórios, porém o Access retorna o seguinte erro (Erro em tempo de execução '-2147012851(80072f0d)':  A autoridade de certificação não é válida ou está incorreta)
Ao clicar em "Depurar" o Access me leva para a parte do código myHTTP.send (myDom.XML) quando coloco o cursor do mouse em cima aparece myDom.XML = ""

Option Compare Database

Private Sub Comando0_Click()
'HTTP variable
Dim myHTTP As MSXML2.XMLHTTP

'HTTP object
Set myHTTP = CreateObject("MSXML2.ServerXMLHTTP")

'create dom document variable, stores the xml to send
Dim myDom As MSXML2.DOMDocument

'Create the DomDocument Object
Set myDom = CreateObject("MSXML2.DOMDocument")

'Load entire Document before moving on
myDom.async = False

'xml string variable. replace with location if sending from file or URL
Dim myxml As String
myxml = "C:\Users\lbert\Desktop\consInfCob.xml"

'loads the xml. change to .Load for file or url
myDom.Load (myxml)
Debug.Print myDom.XML

'open the connection
myHTTP.Open "post", "https://xxx.xx.xxx.xxx:xxxx/xxxxx", False

'send the XML
myHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
myHTTP.send (myDom.XML)
'Display the response
MsgBox myHTTP.responseText
End Sub

Se alguém já precisou usar algo parecido e puder me ajudar fico muito agradecido.

Boa noite,
Experimente
Dim sURL As String
Dim oXH As Object

sURL = "https://xxx.xx.xxx.xxx:xxxx/xxxxx"
' browse url
Set oXH = CreateObject("msxml2.xmlhttp")
With oXH
.Open "get", sURL, False
.Send
MsgBox .responseText
End With

Bom dia!

Obrigado pelo retorno Alexandre, porem o código gerou erro no .send (O sistema não pode localizar o recurso especificado)

Bom dia,
Coloque o código original e indique quais os endereços e directórios pretende adaptar