sTempPath = Environ("TEMP")

Option Explicit

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

Function GetTempDir() As String
  Dim strBuffer As String
  Dim nRetVal   As Long
  Dim strPath   As String

  strBuffer = Space(255)
  nRetVal = GetTempPath(255, strBuffer)

  If nRetVal > 0 Then
    strPath = Left$(strBuffer, nRetVal)
    If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
  End If

  GetTempDir = strPath
End Function

MsgBox "Temp-Verzeichnis: " & GetTempDir