Dim request As HttpWebRequest = HttpWebRequest.Create(rssURL)
    Dim response As HttpWebResponse = request.GetResponse()
    Dim rssStream As Stream = response.GetResponseStream()
 
    If (response.ContentEncoding.ToLower().Contains("gzip")) Then
      rssStream = New GZipStream(rssStream, CompressionMode.Decompress)
    end if
 
    Dim rssDoc As New XmlDocument()
    rssDoc.Load(rssStream)