Dim xml As String = $"<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<ProcessCardPayment xmlns="https://pagosinteligentes.com/">
<PaymentOption>int</PaymentOption>
<AcID>long</AcID>
<Ref1>string</Ref1>
<Ref2>string</Ref2>
<Ref3>string</Ref3>
<Amount>long</Amount>
<Tax>long</Tax>
<BDev>long</BDev>
<Description>string</Description>
<BankName>string</BankName>
<CardNumber>string</CardNumber>
<CVV2>string</CVV2>
<CardFranchise>string</CardFranchise>
<Fees>long</Fees>
<ExpDate>string</ExpDate>
<AccountType>int</AccountType>
<IdType>string</IdType>
<IdNumber>string</IdNumber>
<FName>string</FName>
<LName>string</LName>
<Mobile>string</Mobile>
<Phone>string</Phone>
<Email>string</Email>
<Region>string</Region>
<City>string</City>
<Address>string</Address>
<Country>string</Country>
<AccountPassword>string</AccountPassword>
</ProcessCardPayment>
</soap:Body>
</soap:Envelope>"$
Dim j As HttpJob
j.Initialize("", Me)
j.PostString("https://dev.pagosinteligentes.com/webservices/mainwebservicesV2.asmx", xml)
j.GetRequest.SetContentType("text/xml")
j.GetRequest.SetHeader("SOAPAction", $""https://pagosinteligentes.com/ProcessCardPayment""$)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If