function TestGateway()
    Dim webServiceUrl, httpReq, node, myXmlDoc 
    
    webServiceUrl = "https://secure.ftipgw.com/argofire/transact.asmx/ProcessCreditCard?Username=YourUsername&Password=YourPassword&TransType=Sale&CardNum=TestCardNumber&ExpDate=1010&Amount=1.00&MagData=&NameOnCard=&InvNum=&PNRef=&Zip=&Street=&CVNum=&ExtData="
    
    Set httpReq = CreateObject("MSXML2.ServerXMLHTTP") 
    
    httpReq.Open "GET", webServiceUrl, False 
    httpReq.Send 
    
    Set myXmlDoc = CreateObject("MSXML.DOMDocument")
    myXmlDoc.load(httpReq.responseBody) 

    Set httpReq = Nothing 
    Set node = myXmlDoc.documentElement.selectSingleNode("//RespMSG") 
    
    If Not node Is Nothing Then 
        if node.text = "Approved" then
		consumeWebService = -1
	end if
    Else 
        consumeWebService = 0
    End If    

    TestGateway = consumeWebService
end function