puoi anche fare

Dim q As String = Me.Request.Url.Query
If q.Length > 0 Then q = q.Substring(1)
PrintLn(q)