Environ("windir") – возвращает каталог Windows
Environ("temp") - возвращает директорию временных файлов TEMP
Environ("tmp") - возвращает директорию временных файлов TMP

Выводит все значения функции Environ

Dim i, EnvString
Private Sub Command1_Click()
i = 1
Do
EnvString = Environ(i)
Print Environ(i)
i = i + 1
Loop Until EnvString = ""
End Sub