環境変数の一覧を取得する(Environ)

　Environ関数を使用して環境変数を取得できます。
　普通 Environ$("Comspec") のように利用しますが、引数に数値も指定できます。
　例のように使用すると環境変数を全て取得できます。

Option Compare Database
Option Explicit

'----------------------------------
' 環境変数の一覧を取得する
'----------------------------------
Public Sub getEnv()

    Dim returnValue As String
    Dim number      As Long
    
    '-------------------------
    ' 環境変数の一覧を出力
    '-------------------------
    Do
    
       number = number + 1
       
       '環境変数を取得
       returnValue = Environ$(number)

       'イミディエイトウィンドウに出力
       Debug.Print returnValue

    Loop Until returnValue = ""
    
End Sub