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