Imports System

Imports System.IO

Imports System.Net

Imports Newtonsoft.Json.Linq

Public Module Module1

    Public Sub Main()

        Dim request As HttpWebRequest  

        Dim response As HttpWebResponse = Nothing  

        Dim reader As StreamReader  

        request = DirectCast(WebRequest.Create("http://phvarde.kundeside.dk/json?key=t6%$SVAKsG39"), HttpWebRequest)

        response = DirectCast(request.GetResponse(), HttpWebResponse)

        reader = New StreamReader(response.GetResponseStream())

        Dim rawresp As String

        rawresp = reader.ReadToEnd()        

        Dim array As JArray = JArray.Parse(rawresp)

​

        For Each item As JObject In array

            Dim name As String = If(item("name") Is Nothing, "", item("name").ToString())

            Dim email As String = If(item("email") Is Nothing, "", item("email").ToString())

            Console.WriteLine("Name: " & name)

            Console.WriteLine("Email: " & email)

        Next

    End Sub

End Module