Private Function GetStringWEB(ByVal sUrl As String) As String
    Dim oXMLHTTP As New MSXML2.ServerXMLHTTP
    oXMLHTTP.Open "GET", sUrl, False
    oXMLHTTP.Send
    GetStringWEB = oXMLHTTP.responseText
End Function