I have been using the following procedure to read data from webpages on HTTP for years.
But since my Hosting company have forced HTTPS on all domains, the procedure no longer works and give me an error of "An error occurred in the secure channel support"Code:Dim strReturn ' As String
Dim objHTTP ' As MSXML.XMLHTTPRequest
Dim strURL
If Len(strURL) = 0 Then Exit Function
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
strURL = "https://www.codebankers.com/secure1.html"
objHTTP.Open "GET", strURL, False
objHTTP.send 'Get it.
strReturn = objHTTP.responseText
Set objHTTP = Nothing
GetHTMLCode = strReturn
Please i need help on a procedure that can work for HTTPS.

