Adding Potentials via the API

Below is the code I'm running to add Potentials using the API. It worked prior to Dec 1st but now does not add the potential even though a successful completion code is returned. I'm thinking this has something to do with stopping support for SSL, but I'm not sure why this code would have anything to do with that. I did create a new authentication code.

If I paste the URL string created from this program into the browser, a new potential is added so I know the string is correct.

Here's the code:

sURL = "https://crm.zoho.com/crm"
    sXml = "https://crm.zoho.com/crm/private/xml/Potentials/insertRecords?newFormat=2&authtoken=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx&scope=crmapi&xmlData="
    sXml = sXml & "<Potentials>"
    sXml = sXml & "<row no=""1"">"
    sXml = sXml & "<FL val=""Potential Owner"">" & rsHist![Owner] & "</FL>"
    sXml = sXml & "<FL val=""Potential Name"">" & rsHist![ORDERNMBR] & "</FL>"
    sXml = sXml & "<FL val=""Amount"">" & rsHist!Amount & "</FL>"
    sXml = sXml & "<FL val=""Closing Date"">" & rsHist![CloseDate] & "</FL>"
'    sXml = sXml & "<FL val=""ACCOUNTID"">" & Right(rsHist![Customer_Id], 18) & "</FL>"
    sXml = sXml & "<FL val=""Stage"">" & rsHist!Stage & "</FL>"
    sXml = sXml & "<FL val=""Description"">" & rsHist!Title & "</FL>"
    sXml = sXml & "<FL val=""WB_Order_History"">" & sSkus & "</FL>"
    sXml = sXml & "<FL val=""WB_Rep_ID"">" & rsHist![Rep_Id] & "</FL>"
    sXml = sXml & "<FL val=""WB_County_Name"">" & rsHist![COUNTY_NAME] & "</FL>"
    sXml = sXml & "</row>"
    sXml = sXml & "</Potentials>"
    winHttpReq.Open "POST", sURL
    winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    winHttpReq.Send (sXml)

In the Security tab of IE, I've checked the Use TLS 1.0 & unchecked SSL 2.0 & SSL 3.0

Can anyone help with this?

Thanks