Declaramos :
  Private Declare Sub SHAddToRecentDocs Lib "Shell32" _
          (ByVal lFlags As Long, ByVal lPv As String)

Para aņadir un documento :

  SHAddToRecentDocs 2, "c:\MiDir\MiFichero.txt"

Y para vaciar la carpeta :

  SHAddToRecentDocs 2, vbNullString