Please note this works on another machine.

Here is my code.

Private Sub Command1_Click()
On Error GoTo ErrorHandler
    Dim XMLHTTP As XMLHTTP
    Dim strQueryString As String
    Dim strServer As String
    Dim lngPos As Long
    Dim RetrieveResults As String
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

    strServer = "Machine1"

    XMLHTTP.open "POST", "http://" & strServer
& "/amazonbin/amazon.dll?_name=WebRufuse20?
Form=GETAGENTDETAILS?User=pcaxp?Template=?MaxRows=1", False
    XMLHTTP.setRequestHeader "Content-
Type", "application/x-www-form-urlencoded"

XMLHTTP.send "AGENT_CODE$=&BRANCH_NAME$=&HO_CODE$=&NAME$=A&
POSTCODE$=&SIB_CODE$="
    RetrieveResults = ""
    RetrieveResults = XMLHTTP.responseText
   MsgBox RetrieveResults
   Exit Sub

ErrorHandler:
   MsgBox Err.Description
End Sub

Otherwise your code looks to be similiar to what I have done that works
fine.....

Brian