Environment variables en Visual Basic

Les comparto esto que lo ocupaba en algun momento y me costó trabajo dar con ello: Las existentes son: ALLUSERSPROFILE APPDATA CI_HOLOS_CLI CLIENTNAME CommonProgramFiles COMPUTERNAME ComSpec FP_NO_HOST_CHECK HOMEDRIVE HOMEPATH include JAVA_HOME lib LOGONSERVER MSDevDir NUMBER_OF_PROCESSORS OS Path PATHEXT PROCESSOR_ARCHITECTURE PROCESSOR_IDENTIFIER PROCESSOR_LEVEL PROCESSOR_REVISION ProgramFiles SESSIONNAME SystemDrive SystemRoot TEMP TMP USERDNSDOMAIN USERDOMAIN USERNAME USERPROFILE windir y la forma de accesarlas es Sub Environ_Vars() ' Get Environmental Variables using VBA ' Get the LOGON SERVER sLOGONSERVER = Environ("LOGONSERVER" ' No of processors using VBA sNUMBER_OF_PROCESSORS = Environ("NUMBER_OF_PROCESSORS" ' Get the Operating System using VBA sOS = Environ("OS" ' Get the USER DOMAIN using VBA sUSERDOMAIN = Environ("USERDOMAIN" ' Get the Windows Directory using VBA swindir = Environ("windir" End Sub