Protected Sub Page_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
		Dim path As String = "~/datei.aspx"
		Dim result As String = VirtualPathUtility.ToAbsolute(path)
		'oder
		result = Me.ResolveUrl(path)
    End Sub