La seguente funzione permette di recuperare il nome della pagina web attuale

Function GetCurrentPage() As String
        Dim t() As String = Request.ServerVariables("URL").Split("/")
        Dim r As String = t(UBound(t))
        Return r
End Function