Imports System

Imports System.IO

​

Imports System.Net

​

Public Module Module1

    Public Sub Main()

        Dim reader As StreamReader

    Dim request As WebRequest

    Dim response As WebResponse

    Dim data As String = ""

​

    Try

        request = WebRequest.Create("https://www.wfs.nrw.de/geobasis/wfs_nw_alkis_vereinfacht?service=wfs&version=1.0.0&request=GetCapabilities")

        request.Timeout = 30000

        response = request.GetResponse()

        reader = New StreamReader(response.GetResponseStream())

        data = reader.ReadToEnd()

    Catch ex As Exception

        Console.WriteLine(ex.Message)

            Console.WriteLine("Hello World")

    End Try

        Console.WriteLine("Data is: " & data)

    End Sub

End Module