Função Environ
Retorna o valor de uma variável de ambiente como uma string. As variáveis de ambiente dependem do tipo de sistema operacional que você possui.
Sintaxe:
Environ (Environment As String)
Valor de retorno:
String
Parâmetros:
Environment: variável Environment para a qual você deseja retornar o valor.
Exemplo:
Sub ExampleEnviron
Dim sTemp As String
sTemp=Environ ("TEMP")
If sTemp = "" Then sTemp=Environ("TMP")
MsgBox "'" & sTemp & "'" ,64,"Directory of temporary files:"
End Sub