Sub Test() RecentFiles.Add "MyFile.cdr", "C:\Temp\Graphics\"End Sub
Sub Test() RecentFiles.Add "MyFile.des", "C:\Temp\Graphics\"End Sub