Private Declare Function GetTempPath Lib  "kernel32"  Alias  "GetTempPathA"  (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Public Function GetSysTmpDir() As String
  Dim sBuffer As String
  Dim lLen As Long
  Dim sTempRoot As String
  
  sBuffer = Space( 400 )
  lLen = Len(sBuffer)
  Call GetTempPath(lLen, sBuffer)
  GetSysTmpDir = Mid$(sBuffer,  1 , InStr( 1 , sBuffer, vbNullChar, vbBinaryCompare) -  1 )
End Function