Sub Main
    'Création d'un fichier texte
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set MyFile  = fso.CreateTextFile("C:\ExportText\demo.txt", True)

    'Préparation à l'ouverture d'une base de donnée
    Set objConn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")

    'Application Microsoft
    Set oExcelApp = CreateObject("Excel.Application")
    Set oWord = CreateObject("Word.Basic")

    'Sélectionneur de dossier
    Set objSHL  = CreateObject("Shell.Application")
    Set objB4F  = objSHL.BrowseForFolder(&H0,Title,&H0031,Path)
End Sub