Imports System

​

Public Module Module1

​

    Public Sub Main()

        console.write("Please Enter An IP: ")

        dim IP as string = console.readline

        dim wc as new system.net.webclient

        dim results as string = wc.downloadstring("http://freegeoip.net/json/" + IP)

        if results.contains("""") then

            results = results.replace("""", "")

        end if

​

        if results.contains(",") then

            results = results.replace(",", Environment.newline)

        end if

​

        if results.contains("{") then

            results = results.replace("{", "")

        end if

​

        if results.contains("}") then

            results = results.replace("}", "")

        end if

​

        if results.contains(":") then

            results = results.replace(":", ": -")

        end if

​

        if results.contains("_") then

            results = results.replace("_", " ")

        end if

​

        Console.writeline(results)

    End Sub

End Module

​