Dim URI1 as new Uri("http://www.test.de",system.urikind.absolute)
Dim URI2 as new Uri("seite.htm",system.urikind.relativeorabsolute)
Dim URI3 as Uri
If Uri2.isabsoluteuri then
   Uri3=Uri2
else
   Uri3=new Uri(Uri1,Uri2)
End if