Option Explicit
 
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal _
  nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Const MAX_PATH As String = 260
 
Private Function TempDir() As String
 
    Dim tempVar As String
 
    tempVar = String(MAX_PATH, Chr(0))
    Call GetTempPath(MAX_PATH, tempVar)
    TempDir = StripTerminator(tempVar, Chr(0))
    TempDir = CheckPath(TempDir)
 
End Function
 
Private Function StripTerminator(ByRef Text As String, Optional ByVal Strip As _
  String) As String
 
    Dim Extract As String
 
    If Text = "" Then Exit Function
    If Strip = "" Then Strip = Chr(0)
    If InStr(Text, Strip) = 0 Then
        StripTerminator = Text
        Exit Function
    End If
    Extract = Left(Text, InStr(Text, Strip) - 1)
    StripTerminator = Extract
    Text = Right(Text, Len(Text) - Len(Extract) - Len(Strip))
 
End Function
 
Private Function CheckPath(ByVal Pfad As String) As String
 
    On Error Resume Next
 
    If LTrim$(Pfad) = "" Then Exit Function
    If Right$(Pfad, 1) <> "\" Then
        CheckPath = Pfad & "\"
    Else
        CheckPath = Pfad
    End If
 
End Function
 
Private Sub Form_Load()
 
    Call MsgBox("TEMP-Ordner: " & TempDir & vbCrLf & _
                "TMP-Variable: " & CheckPath(Environ$("TMP")) & vbCrLf & _
                "TEMP-Variable: " & CheckPath(Environ$("TEMP")), _
                vbInformation)
 
End Sub