Ruta dinamica de carpeta "Empresas" asignar valor desde el web config

Masters/Site42.master.vb

@@ -42,7 +42,7 @@ Partial Class Masters_Site42
             If Not UsuarioActual.Portal Then 'si no es un cliente o proveedor
 
                 Dim dt As New DataTable
-                dt.ReadXml(String.Format("{0}\Menu\{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
+                dt.ReadXml(String.Format("{0}\Menu\{1}.xml", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveUsuario))
                 Dim Inicio = From i In dt.AsEnumerable Where i!CvePadre.Equals(0) Order By i!Orden
                 Dim CveModulo As Integer
                 For Each dr As DataRow In Inicio