TempFile

Private Sub CreateTempFile()
Dim TempDir As String
Dim TmpFile As String
Dim r As Long
TempDir = Space$(MAX_PATH)
r = GetTempPath(MAX_PATH, TempDir)
TempDir = Left$(TempDir, r)
TmpFile = Space$(MAX_PATH)
r = GetTempFileName(TempDir, "TMP", 0, TmpFile)
If r <> 0 Then
TmpFile = Left$(TmpFile, InStr(TmpFile, Chr$(0)) - 1)
MsgBox "File " & TmpFile & " created"
End If
End Sub