如何在VB.Net应用中等待http请求？

Imports System.Net.Http
Imports System.Threading.Tasks

Public Class HttpExample
    Private Shared Async Function MakeRequestAsync() As Task(Of String)
        Using client As New HttpClient()
            Dim response As HttpResponseMessage = Await client.GetAsync("https://api.example.com/data")
            response.EnsureSuccessStatusCode() ' 确保请求成功
            Dim responseBody As String = Await response.Content.ReadAsStringAsync()
            Return responseBody
        End Using
    End Function

    Public Shared Async Sub Main()
        Try
            Dim result As String = Await MakeRequestAsync()
            Console.WriteLine("Response: " & result)
        Catch ex As Exception
            Console.WriteLine("An error occurred: " & ex.Message)
        End Try
    End Sub
End Class