Imports System.Net
Imports System.Net.Sockets

Public Class Tester
Public Shared Sub Main()
Dim aUri As New Uri("http://www.java2s.com/")
Console.WriteLine(aUri.AbsoluteUri)
Console.WriteLine(aUri.AbsolutePath)

End Sub
End Class

---

Imports System
Imports System.Net.Sockets

Public Class Tester
Public Shared Sub Main()
Dim myURI As New Uri("http://www.java2s.com:8080")

Console.WriteLine(myURI.Host)
Console.WriteLine(myURI.AbsolutePath)
Console.WriteLine(myURI.AbsoluteUri)
Console.WriteLine(myURI.Port.ToString)
Console.WriteLine(myURI.Scheme)

End Sub
End Class

---