See code below. This used to work now I am getting an error message on the
xmlHTTP.Send

Error Message = The download of the specified resource has failed.
-2146697208 MSXML3.dll


Function submitXMLToURL() As String
Dim theURL As String
Dim xmlHTTP As New xmlHTTP
Dim txt As TextStream
Dim x As String
Dim xmlDoc As New MSXML2.DOMDocument

On Error GoTo ErrTRAP

submitXMLToURL = "-1"
Set txt = fso.OpenTextFile(Me.txtXMLFileName)
x = txt.ReadAll
txt.Close


theURL = "https://WebSiteURL"
xmlHTTP.Open "POST", theURL, False
xmlHTTP.send x

xmlDoc.async = False
xmlDoc.loadXML xmlHTTP.responseText
If xmlDoc.XML "" Then
submitXMLToURL = xmlDoc.XML
Else
submitXMLToURL = xmlHTTP.responseText
End If

ErrTRAP:

MsgBox Err.Description & Err.Number & Err.Source

End Function