Ecco, trovato:

la funzione Environ

Utilizzo (da MSDN):

codice:
Dim EnvString, Indx, Msg, PathLen   ' Dichiara le variabili.
Indx = 1   ' Inizializza l'indice su 1.
Do
   EnvString = Environ(Indx)   ' Legge la variabile di
            ' ambiente.
   If Left(EnvString, 5) = "PATH=" Then   ' Verifica la voce PATH.
      PathLen = Len(Environ("PATH"))   ' Legge la lunghezza.
      Msg = "Voce PATH = " & Indx & " e lunghezza = " & PathLen
      Exit Do
   Else
      Indx = Indx + 1   ' La voce PATH non esiste
   End If   ' perciò incrementa.
Loop Until EnvString = ""
If PathLen > 0 Then
   MsgBox Msg   ' Visualizza il messaggio.
Else
   MsgBox "Non esiste alcuna variabile di ambiente PATH."
End If