Sub Main(args As String())
    Dim t As Task(Of String) = SendRequestAsync()
    t.Wait()

    Dim ret As String = t.Result
End Sub

Async Function SendRequestAsync() As Task(Of String)
    Dim client As HttpClient = New HttpClient()
    Dim req As HttpRequestMessage = New HttpRequestMessage()

    req.Method = HttpMethod.Get
    req.RequestUri = New Uri("https://www.google.it/")

    Dim res As HttpResponseMessage = Await client.SendAsync(req)

    If res.IsSuccessStatusCode Then
        Dim sr As StreamReader = New StreamReader(Await res.Content.ReadAsStreamAsync())
        Dim buffer As String = sr.ReadToEnd()

        Return buffer
    End If

    Return String.Empty
End Function