get data thru proxy

Private Function gtHttpGet(url As String) As String
    ' TODO oAuth
    Dim ohttp As Object
    'Set ohttp = CreateObject("Microsoft.XMLHTTP")
    Set ohttp = createObject("Msxml2.ServerXMLHTTP.6.0")
    ' use a proxy if defined. Use something like this:
    ' Const myProxy = "11.11.111.1:8181"
    If Not myProxy = "" Then ohttp.setProxy 2, myProxy, ""
    Call ohttp.Open("GET", url, False)
    Call ohttp.Send("")
    gtHttpGet = ohttp.ResponseText
    Set ohttp = Nothing
End Function