Uri.PathAndQuery Property gets the AbsolutePath and Query properties separated by a question mark (?).
Imports System.IO
Imports System.Net
Imports System.Text
publicclass 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.PathAndQuery)
End Sub
End Class