Проверка совпадения имен файлов - VB

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

Здравствуйте. Макросом из Ворда сохраняю файл в нужную папку на диске. При этом если файл с таким именем уже есть в этой папке, то он перезаписывается. Хочу понять как выполнить проверку наличия уже существующего файла с таким именем, чтобы можно было реализовать возможность выбора замены файла, сохранения под другим именем или отмены сохранения. Точнее, проверку нужно производить по части имени. Пример: есть файл TZ_105-17_01.03.2017.docm. Создаётся файл TZ_105-17_05.03.2017.docm. Как видите меняется дата. Но двух одинаковых документов с номером 105-17 не должно быть. Я в этом деле новичок и только начинаю изучать VB, поэтому если что не так прошу ногами не пинать.

Решение задачи: «Проверка совпадения имен файлов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    CurrFile = Dir$("C:\MyFolder" & "*.*", vbNormal)
    Do While Len(CurrFile) > 0
            If InStr(CurrFile, "105-17")) Then
                        'в папке есть файл с совпадением. удаляем...
                        Kill CurrFile
            
            End If
        CurrFile = Dir$()
    Loop