MS Access: environ

Private Sub readenviron()
'read only processor
Dim txt
txt = Environ("COMPUTERNAME") & " - " & Environ("PROCESSOR_IDENTIFIER") & " - " & Environ("PROCESSOR_REVISION") & " - " & Environ("PROCESSOR_LEVEL") & " - " & Environ("USERPROFILE") & " - " & Environ("NUMBER_OF_PROCESSORS")
MsgBox txt
'read all
Dim x
txt = ""
For x = 1 To 200
txt = txt & " - " & Environ(x)
Next x
MsgBox txt
End Sub