Mailchimp Integration Using VB

Mailchimp Using VB.NET : Ping

Imports System
Imports System.Net.Http
Imports System.Net.Http.Headers

Module Program
    Sub Main(args As String())
        Dim page As String = "https://{server}.api.mailchimp.com/3.0/ping"
        Using client As HttpClient = New HttpClient()
            client.DefaultRequestHeaders.Authorization = New System.Net.Http.Headers.AuthenticationHeaderValue("Basic", "{APIKEY}")
            client.DefaultRequestHeaders.Accept.Add(New System.Net.Http.Headers.MediaTypeWithQualityHeaderValue("application/json"))
            Using response As HttpResponseMessage = client.GetAsync(page).Result
                Using content As HttpContent = response.Content
                    Dim result As String = content.ReadAsStringAsync().Result
                    Console.WriteLine(result)
                End Using
            End Using
        End Using
    End Sub
End Module