Private Function xmlPost(ByVal sURL As String, ByVal sRequest As String, ByVal iTimeOut As Integer, ByRef sResponse As String) As Boolean

Dim sSource As String
Dim iCount As Integer
Dim objXMLPost As MSXML2.XMLHTTP40
Dim iLTimeOut As Long
            
xmlPost = False

Set objXMLPost = New MSXML2.XMLHTTP40

iLTimeOut = iTimeOut
iLTimeOut = 1000 * iLTimeOut
        
objXMLPost.Open "POST", sURL, False
objXMLPost.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
objXMLPost.send sRequest
sResponse = objXMLPost.responseText
    
xmlPost = True
Set objXMLPost = Nothing
        
Exit Function
End Function