Saber el valor de las variables de entorno para poder ser usadas por ENVRON Buho ==== Sub prueba() Dim EntCadena, Indice Indice = 1 Do EntCadena = Environ(Indice) MsgBox EntCadena Indice = Indice + 1 Loop Until EntCadena = "" End Sub