Network Remote VB.Net

Imports System.IO
Imports System.Net
Imports System.Text
public class MainClass
   Shared Sub Main()
     Dim baseUri As New Uri("http://www.yourDomain.com/")
     Dim myUri As New Uri(baseUri, "shownew.htm?date=today")
    
     Console.WriteLine(myUri.Port)
   End Sub
End Class