Sub Print_Environ()

'https://forum.sources.ru/index.php?showtopic=219673

iMyDocuments = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

iMyDocuments = CreateObject("Shell.Application").Namespace(5).Items.Item.Path

'https://www.cyberforum.ru/visual-basic/thread49338.html

WinDir = Environ("windir") 'директория с windows

'И никаких API!

'Можно и другие:

a = Environ("TMP") 'директория временных файлов TEMP

b = Environ("BLASTER") 'координаты звуковой карты

c = Environ("PATH") 'пути, объявленные в autoexec.bat

'Можно обращаться и по номеру. Вот вывод полного списка:

Dim str_Environ As String

Dim i As Long

i = 1

Do

str_Environ = Environ(m)

Debug.Print m & " " & Environ(m)

m = m + 1

Loop Until str_Environ = ""

End Sub