SITE PARA ARMAZENAR ARQUIVOS GRANDES E BAIXAR...

Citação:

:
E provavelmente voce quer algo na faixa, sem investir nada, certo?

  wc = New WebClient 

  Public Sub StartDownload()

        wc.DownloadFileAsync(New Uri(DownloadLink), FileLocation & "\" & FileName)

    End Sub 

  StartDownload() 

Dim  FileLocation
Dim FileName
Dim DownloadLink 

  Imports System.Net 

Sub Main(args As String())
        Console.WriteLine("Iniciando download...")
        DownloadAnExampleMovieAsync().ConfigureAwait(False).GetAwaiter().GetResult() "Como estou fazendo um exemplo no Console, forcei pra rodar síncrono
        Console.WriteLine("Download finalizado!")
        Console.ReadKey()
    End Sub


    Private Function DownloadAnExampleMovieAsync() As Task
        Const downloadUrl As String = "http://download941.mediafire.com/2gmalhc2nlpg/1kc70za71p0965e/1992+-+A+Vingan%C3%A7a+dos+Sapos+Assassinos.7z"
        Const filepath As String = "C:\meus-downloads\a-vinganca-dos-sapos-assassinos.7z"

        Return DownloadAsync(downloadUrl, filepath)
    End Function

    Private Function DownloadAsync(url As String, filepath As String) As Task
        Dim downloadTask As Task

        Using webClient As WebClient = New WebClient()
            downloadTask = webClient.DownloadFileTaskAsync(New Uri(url), filepath)
        End Using

        Return downloadTask
    End Function

Citação:

:
Segue um exemplo baseado na sua tentativa. Apenas um adendo: Não é recomendável fazer download de arquivos muito grandes assim. Voce fica sujeito a erros do servidor onde o arquivo está hospedado, desconexão, problemas com a rede local, etc... e depois não consegue retomar o download de onde parou. Fora que não consegue ver a taxa de progresso. De qualquer forma, segue abaixo:

Sub Main(args As String())
        Console.WriteLine("Iniciando download...")
        DownloadAnExampleMovieAsync().ConfigureAwait(False).GetAwaiter().GetResult() "Como estou fazendo um exemplo no Console, forcei pra rodar síncrono
        Console.WriteLine("Download finalizado!")
        Console.ReadKey()
    End Sub


    Private Function DownloadAnExampleMovieAsync() As Task
        Const downloadUrl As String = "http://download941.mediafire.com/2gmalhc2nlpg/1kc70za71p0965e/1992+-+A+Vingan%C3%A7a+dos+Sapos+Assassinos.7z"
        Const filepath As String = "C:meus-downloadsa-vinganca-dos-sapos-assassinos.7z"

        Return DownloadAsync(downloadUrl, filepath)
    End Function

    Private Function DownloadAsync(url As String, filepath As String) As Task
        Dim downloadTask As Task

        Using webClient As WebClient = New WebClient()
            downloadTask = webClient.DownloadFileTaskAsync(New Uri(url), filepath)
        End Using

        Return downloadTask
    End Function

Citação:

:
Baixei o arquivo sem problemas - inclusive verifiquei se o arquivo estava consistente e os mais de 1GB desse filme tosqueira foi baixado com sucesso.

Não acredito que seja o Visual Studio. O Visual Studio é apenas a IDE.
Voce pode tentar usar o evento DownloadProgressChanged do WebClient para ver se ele chega a disparar pelo menos.

Voce tá com algum antivirus chato rodando? Dependendo, vale a pena criar exceção tanto pro processo da aplicação quanto pro caminho de destino do arquivo baixado.
Só para confirmar, não tem nenhum proxy no caminho não né?

Agora que vi que o bloco de código aqui no VBMania fica meio zoado. Transforma aspas duplas em aspas simples e tirou as "" da string. Seja como for, acredito que voce deve ter se atentado a isso.