Private Declare Function GetTempPath Lib "kernel32.dll" _
  Alias "GetTempPathA" (ByVal nBufferLength As Long, _
  ByVal lpBuffer As String) As Long
 
Private Sub Form_Load()
Dim sPath As String
  Dim nResult As Long
 
sPath = Space$(260)
  nResult = GetTempPath(Len(sPath), sPath)
  TEMP = Left$(sPath, nResult)
  MsgBox TEMP
End Sub