Structure WebReq
    Dim cReq as WebRequest
    Dim cRes as WebResponse
    Dim cStream as Stream
    Dim cReader as StreamReader
    Dim cResponse as String
End Strucure

Function oWebReq(byval url as string) as String
    Dim v as new WebReq With { .cReq = WebRequest.Create(CheckUri(url)), _
        .cRes = .cReq.GetResponse, _
        .cStream = .cRes.GetResponseStream, _
        .cReader = new StreamReader(.cStream), _
        .cResponse = .cReader.ReadToEnd }
    return v.cResponse
End Function