NÃO SALVA NO DIRETÓRIO TEMPORARIO

Question

Boa tarde, 

estou tendo problemas para salvar arquivos no diretório temporário do Windows, eu mando salvar, depois simplesmente quando vou ver se o arquivo está lá, não está.

Veja o código que estou usando:

'No módulo:

'====== DIRETÓRIO TEMPORARIO DO SISTEMA =======

'Public Declare Function GetTempPath Lib "kernel32" Alias _
"GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
'Const MAX_PATH = 255

'=======================================

'No Form:

'====== Pega o diretório temporário do Windows ======

'Public Function TempDir() As String
   ' Dim sRet As String, lngLen As Long
    
    'create buffer
    'sRet = String(MAX_PATH, 0)

    'lngLen = GetTempPath(MAX_PATH, sRet)
    'If lngLen = 0 Then Err.Raise Err.LastDllError
    'TempDir = Left$(sRet, lngLen)
'End Function

'-------------------------------------------------------


'Aqui é o trecho que salva:

'======= Salvando arquivo no diretório temporário =======

Private Sub Command1_Click()

'On Error GoTo skip
'If Dir (TempDir & "file003355.txt") <> "" Then
'Open TempDir & "file003355.txt" For Output As #1 
'Write #1, Form1.Text1
'Close #1
'Else
'Open TempDir "file003355.txt" For Append As #1 
'Write #1, Form1.Text1
'Close #1
'End If
'Form1.Text1 = ""
'skip:

'End Sub

Alguém poderia dar uma dica?

Agradeço demais.