Windows sistem değişkenlerini A sütununda listelemeye yarayan VBA kodudur.
Option Explicit
Sub SistemDegiskenleriniASutunundaListele()
Dim i As Integer
i = 1
While Environ(i) <> Empty
Cells(i, 1) = Environ(i)
i = i + 1
Wend
End Sub