'*********************************************************
' Function AccessUserDataDir() As String
'
' Devuelve una cadena con el directorio donde está ubicado
' el archivo de datos de usuario utilizado por los 
' asistentes de Access
'
Sub wzAccessUserDataDir()
    
    WizHook.Key = 51488399
    Debug.Print WizHook.AccessUserDataDir
    
End Sub
'*********************************************************