Утечка памяти в веб-запросах

Sub Main()
       Do 'Основной цикл
            If Now > StartS Then
                'Некие операции с изображениями, после чего нужна сборка мусора
                GC.Collect()
            End If
            If DoOnce AndAlso Now > CheckDelay Then '1 раз за запуск, с отсрочкой
                DoOnce = False
                UpdateCheck()
            End If
        Threading.Thread.Sleep(250)
        Loop
End Sub
 
Private Sub UpdateCheck()
        Try 'Проверка обновлений
            Dim Request As HttpWebRequest = HttpWebRequest.Create("https://cloud-api.yandex.net/v1/disk/resources/download?path=" & "app:/update.rar" _
                                                                  & "&fields=href")
            Request.Headers.Set("Authorization", "OAuth " & YDToken)
            Dim Response As HttpWebResponse = Nothing
            Dim Stream As IO.Stream = Nothing
            Dim StrRead As IO.StreamReader = Nothing
            Dim WebCl As New WebClient
            Try
                Response = Request.GetResponse()
                Stream = Response.GetResponseStream()
                StrRead = New IO.StreamReader(Stream)
                Dim JSONanswer As String = StrRead.ReadToEnd 'Ответ сервера в формате JSON, при отсутствии запрашиваемого файла вызывает исключение
                Dim UpLink As String = JSONanswer.Substring(JSONanswer.IndexOf("https")).Replace("""}", "") 'Выделение ссылки на Download из ответа
                Dim PathUpd As String = sAppPath & "\Update"
                If Not IO.Directory.Exists(PathUpd) Then IO.Directory.CreateDirectory(PathUpd)
                Dim ArchUpd As String = PathUpd & "\update.rar"
                WebCl.DownloadFile(New Uri(UpLink), ArchUpd) 'Скачивание файла по ссылке
            Finally
                If WebCl IsNot Nothing Then WebCl.Dispose()
                If StrRead IsNot Nothing Then StrRead.Dispose()
                If Stream IsNot Nothing Then Stream.Dispose()
                If Response IsNot Nothing Then Response.Close()
                Request = Nothing
            End Try
        Catch ex As Exception
            'При отсутствии файла update сервер ответит ошибкой, что вызовет исключение
            WriteLog("Update error. ERR: " & ex.Message)
        End Try
End Sub

Private Sub UpdateCheck()
            If GetUpdate() Then
                WriteLog("Update received. Start of update...")
                'Распаковка
            End If
End Sub
 
Private Function GetUpdate() As Boolean
        Try
            Dim Request As HttpWebRequest = HttpWebRequest.Create("https://cloud-api.yandex.net/v1/disk/resources/download?path=" & "app:/update.rar" _
                                                                  & "&fields=href")
            Request.Headers.Set("Authorization", "OAuth " & YDToken)
            Dim Response As HttpWebResponse = Nothing
            Dim Stream As IO.Stream = Nothing
            Dim StrRead As IO.StreamReader = Nothing
            Dim WebCl As New WebClient
            Try
                Response = Request.GetResponse()
                Stream = Response.GetResponseStream()
                StrRead = New IO.StreamReader(Stream)
                Dim JSONanswer As String = StrRead.ReadToEnd 'Ответ сервера в формате JSON, при отсутствии запрашиваемого файла вызывает исключение
                Dim UpLink As String = JSONanswer.Substring(JSONanswer.IndexOf("https")).Replace("""}", "") 'Выделение ссылки на Download из ответа
                WebCl.DownloadFile(New Uri(UpLink), ArchUpd) 'Скачивание файла по ссылке
                GetUpdate = True
            Finally
                If WebCl IsNot Nothing Then WebCl.Dispose()
                If StrRead IsNot Nothing Then StrRead.Dispose()
                If Stream IsNot Nothing Then Stream.Dispose()
                If Response IsNot Nothing Then Response.Close()
                Request = Nothing
            End Try
        Catch ex As Exception
            WriteLog("Update error. ERR: " & ex.Message)
            GetUpdate = False
        End Try
End Function

Private Shared Function GetJsonFile(ByVal url As String) As String
    Using client As WebClient = New WebClient()
 
        Try
            Dim responseBody As String = client.DownloadString(url)
            Return responseBody
        Catch e As WebException
            Console.WriteLine("Error: " & e.Message)
            Return String.Empty
        End Try
    End Using
End Function

Dim JSONanswer As String = GetJsonFile("https://cloud-api.yandex.net/v1/disk/resources/download?path=app:/update.rar&fields=href")
WriteLog(JSONanswer)
 
Private Function GetJsonFile(ByVal url As String) As String
        Using client As WebClient = New WebClient()
            Try
                client.Headers.Set("Authorization", "OAuth " & YDToken)
                Dim responseBody As String = client.DownloadString(url)
                Return responseBody
            Catch e As WebException
                WriteLog("Error: " & e.Message)
                Return String.Empty
            End Try
        End Using
End Function

Do
    '...
    Application.DoEvents()
Loop