Hola
Copia el siguiente codigo en tu formulario
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetEnvironmentVar(ByVal sName As String) As String
Dim sGetEnvironmentVar As String
sGetEnvironmentVar = String(255, 0)
GetEnvironmentVariable sName, sGetEnvironmentVar, Len(sGetEnvironmentVar)
If InStr(1, sGetEnvironmentVar, Chr$(0)) > 0 Then sGetEnvironmentVar = Left$(sGetEnvironmentVar, InStr(1, sGetEnvironmentVar, Chr$(0)) - 1)
GetEnvironmentVar = sGetEnvironmentVar
End Function
Luego en el formulario
Private Sub Form_Open(Cancel As Integer)
Me.TEXTO1 = GetEnvironmentVar("TEMP")
End Sub
Saludos