For Each Env (gb)

Dim aString As String
For Each aString In Env
  ...
Next

Enumera tutte le variabili di ambiente per nome.