Or you could just loop all environment variables:
Dim dictEntry As System.Collections.DictionaryEntry
ForEach dictEntry In Environment.GetEnvironmentVariables()
Response.Write("Key: " & (dictEntry.Key.ToString()) & _
" Value: " & (dictEntry.Value.ToString()))
Next