Sub TEST()
    Dim Msg As String, i As Long, arrFolders As Variant
    
    '---1---Environ by Name
    arrFolders = Array("ALLUSERSPROFILE", "APPDATA", "COMMONPROGRAMFILES", "HOMEDRIVE", _
        "HOMEPATH", "LOCALAPPDATA", "LOGONSERVER", "PATH", "PROGRAMDATA", "PROGRAMFILES", _
        "PUBLIC", "SYSTEMDRIVE", "SYSTEMROOT", "TEMP", "TMP", "USERNAME", "USERPROFILE", "WINDIR")
    
    For i =  0  To UBound(arrFolders)
        Msg = Msg & arrFolders(i) & "= " & Environ(arrFolders(i)) & Chr( 13 )
    Next i
    MsgBox Msg

    '---2---Environ by Index
    Msg = ""
    For i =  1  To  100 
         If Environ(i) <> "" Then Msg = Msg & Environ(i) & Chr( 13 )
    Next i
    MsgBox Msg
    
    '---3---WScript.Shell
    Msg = ""
    arrFolders = Array("AllUsersDesktop", "AllUsersStartMenu", "AllUsersPrograms", _
        "AllUsersStartup", "Desktop", "Favorites", "Fonts", "MyDocuments", "NetHood", _
        "PrintHood", "Programs", "Recent", "SendTo", "StartMenu", "Startup", "Templates")

    With CreateObject("WScript.Shell")
        For i =  0  To UBound(arrFolders)
            Msg = Msg & UCase(arrFolders(i)) & "= " & .SpecialFolders(arrFolders(i)) & Chr( 13 )
        Next i
    End With
    MsgBox Msg
    
    '---4---Excel Specific
    Msg = ""
    With Application
        Msg = Msg & .Path & Chr( 13 )
        Msg = Msg & .UserLibraryPath & Chr( 13 )
        Msg = Msg & .StartupPath & Chr( 13 )
        Msg = Msg & .AltStartupPath & Chr( 13 )
        Msg = Msg & .DefaultFilePath & Chr( 13 )
        Msg = Msg & .LibraryPath & Chr( 13 )
        Msg = Msg & .NetworkTemplatesPath & Chr( 13 )
        Msg = Msg & .TemplatesPath & Chr( 13 )
    End With
    MsgBox Msg
    
End Sub