Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Function GetTmpPath() As String
Dim tmpBuffer As String
tmpBuffer = String(255, Chr(0))
GetTempPath 256, tmpBuffer
GetTmpPath = Trim(Left(tmpBuffer, InStr(1, tmpBuffer, Chr(0)) - 1))
End Function