Hi, try this routine. It should pull the info. Just need a listbox.
Private Sub Form_Load()
Dim sEnv As String
Dim ictr As Long
ictr = 1
Do Until ictr = 10000
sEnv = Environ(ictr)
If sEnv <> "" Then
List1.AddItem sEnv
Else
Exit Do
End If
ictr...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.