Поиск и замена в MS Word - Visual Basic .NET

            Dim Word As Object
            Word = CreateObject("Word.Application")
            Word.Documents.Open("C:\Users\Ильнар\Desktop\Квитанция на оплату.doc") 'открываем документ
            Word.Visible = True
 
            With Word.Selection.Find
                .Execute(Replace("Ф!И!О", 0, 0)) 'что ищем
                Word.Selection.Text = TextBoxX4.Text & " " & TextBoxX1.Text & " " & TextBoxX2.Text 'на что меняем
            End With