Как сделать цикл со списком имен файлов и списком для их переименования - VB

Формулировка задачи:

Здравствуйте, прошу помощи. Есть файлы с определенными названиями в разных папках, например: D:\Work\1.doc D:\Work\Трас.doc C:\Path\Рез.doc С:\Path\78рез.doc Каждый из этих файлов, если он есть в папке нужно сохранить в формате txt с другим определенным именем. У меня получается вот такой макрос. Но файлов много и не знаю, как сделать это более эффективно, чтобы в цикле перебиралось и проверялось наличие файлов, и если есть, то происходило сохранение как текст с нужным именем.

                    Листинг программы
                
  Set FSO = CreateObject("Scripting.FileSystemObject")
  
  If FSO.FileExists("D:\Work\1.doc") Then
        Documents.Open FileName:="D:\Work\1.doc"
        ActiveDocument.SaveAs FileName:="D:\Work\1лен.txt", FileFormat:=wdFormatText, _
        Encoding:=1251
        ActiveWindow.Close        
  End If
      
  Set FSO = Nothing

Подскажите, пожалуйста, как это должно быть.

Решение задачи: «Как сделать цикл со списком имен файлов и списком для их переименования»

textual
                            Листинг программы 
                        
Desktop = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\"