Public Function WebRequest(url As String, data As String) As String
    Set myMSXML = CreateObject("Microsoft.XmlHttp")
    myMSXML.Open "POST", url, False
    myMSXML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    myMSXML.send (AsciiToUTF8(data))
    WebRequest = myMSXML.ResponseText
    Set http = Nothing
End Function