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

OI/CircularDetalle.aspx.vb

@@ -162,7 +162,7 @@ Partial Class OI_CircularDetalle
     End Function
 
     Private Function TituloAnterior() As String
-        Dim Directorio As New IO.DirectoryInfo(String.Format("{0}Empresas/{1}/Formatos/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa))
+        Dim Directorio As New IO.DirectoryInfo(String.Format("{0}Empresas/{1}/Formatos/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa))
         Dim ArchivosArreglo As IO.FileInfo() = Directorio.GetFiles()
         Dim patronRegEx As String = String.Format("^{0}_.*", CveCircular)
         Dim archivoEncontrado As String = ""