ConsumeAnApi

            Dim client As HttpClient = New HttpClient()
            client.BaseAddress = new Uri("https://api.cheapweather.com/")
            client.DefaultRequestHeaders.Accept.Clear()
            client.DefaultRequestHeaders.Add("token", accessToken)
            client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/json"))
            Dim response As HttpResponseMessage = client.GetAsync("v1/zip/" + ZipOption.Text).Result
            If response.IsSuccessStatusCode Then
                Dim data = response.Content.ReadAsStringAsync().Result
            End If