Переименовать файл, заменив определенные цифры в его имени - Visual Basic .NET

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

есть файл с именем: VLS-700-Y-2015-ORG-088-111-123587-DCK-00061-DPT-000000-DCK-00000.xml файл выбираем через OFD1. и имя выбранного файла записывается в Textbox1.text необходимо при нажатии на кнопку создать папку rename(если она уже создана, то не создавать) в той же директории откуда и был выбран файл, скопировать его туда и переименовать, поменяв в имени только вот эту часть 123587 файла на цифры, которые введены в textbox2.text, остальное меняться не должно. например, на в textbox2.text введено: 222355 имя файла на выходе должно быть: VLS-700-Y-2015-ORG-088-111-222355-DCK-00061-DPT-000000-DCK-00000.xml заранее благодарен

Решение задачи: «Переименовать файл, заменив определенные цифры в его имени»

textual
                            Листинг программы 
                        

                                    For Each F As String In IO.Directory.GetFiles("Путь к папке")
            Dim NewName As String = IO.Path.GetFileName(F).Replace("123587", TextBox1.Text)
            My.Computer.FileSystem.RenameFile(F, NewName)
        Next
                        