Private Declare Function GetTempPath Lib "kernel32.dll" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal Buffer As String) As Long Public Sub Test() Dim Buffer As String * 255 Call GetTempPath(255, Buffer) Debug.Print Buffer End Sub