CodeItBetter Programming Another VB Programming Blog

'System & API - How to get all DOS Environment Variables

Private Sub Main()
    Dim Env As String
    Dim x As Integer
    x = 1
    Env = Environ(x)
    Do Until Env = ""
        Env = Environ(x)
        Debug.Print Env
        x = x + 1
    Loop
End Sub