' Created 5-15-2002 by Peter M. Schroeder
' Modified 4-23-2009 by Peter M. Schroeder (turned into a generic template for posting to UtterAccess)
Public Function gfncXMLPost() As Variant
    Dim objXMLDOC As New DOMDocument30
    Dim objXMLHTTP As New XMLHTTP30
    
    objXMLHTTP.Open "POST", "http://addressgoeshere", False
    objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objXMLHTTP.send "yourXMLstringgoeshere"
    objXMLDOC.validateOnParse = True ' Convert response to XML
    objXMLDOC.loadXML objXMLHTTP.responseText
    If objXMLDOC.parseError.errorCode = 0 Then ' If no errors:
'     parse the response here
    End If
    Set objXMLDOC = Nothing
    Set objXMLHTTP = Nothing
End Function