Путь к папке TEMP текущего пользователя

Dim objFSO As Object
Dim sTempFilePath$
'---------------------------------------------------------------------------------------------------
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
' см.: https://learn.microsoft.com/ru-ru/office/vba/language/reference/user-interface-help/getspecialfolder-method
    sTempFilePath = objFSO.GetSpecialFolder(2)  ' Путь к папке TEMP текущего пользователя
    If Len(sTempFilePath) < 3 Then sTempFilePath = CurrentProject.Path ' если что не так = запасной вариант

' Задаём путь к временному файлу результатов работы nslookup
    sTempFilePath = sTempFilePath & "\nslookup_Report.txt" ' Полный путь
    'Debug.Print sTempFilePath
    
    Set objFSO = Nothing