Return name temporary folder

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

Private Const MAX_PATH As Integer = 255

Function DirTemporary() As String
'Returns Temp Folder Name
Dim strTemp As String
Dim lngRtn As Long
strTemp = String$(MAX_PATH, 0)
lngRtn = apiGetTempDir(MAX_PATH, strTemp)
If lngRtn <> 0 Then
    DirTemporary = Left$(strTemp, lngRtn)
End If
End Function