Imports System

Imports System.IO

Imports System.Net

Public Module Module1

    Public Sub Main()

        Dim oRequest As WebRequest = WebRequest.Create("https://catfact.ninja/fact")

        Dim oResponse As WebResponse = oRequest.GetResponse()

        ' Dim sr As StreamReader = New StreamReader(oResponse.GetResponseStream())

        ' Dim resp = sr.ReadToEndAsync()

​

        Dim Stream As Stream = oResponse.GetResponseStream()

        Dim sr As New StreamReader(Stream, System.Text.Encoding.GetEncoding("utf-8"))

        Dim str As String = sr.ReadToEnd()

        Console.WriteLine(str)

    End Sub

End Module