Составьте программу,которая бы из заданной строки получала бы новую, удалив все "*" - VBA

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

нужно решение,как сделать самому просто ума не приложу,это VBA в ворд

Решение задачи: «Составьте программу,которая бы из заданной строки получала бы новую, удалив все "*"»

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

                            Sub Prog()
    Application.ScreenUpdating = False 'Ускоряем работу (отключим обновление экрана на момент поиска)
    
    Selection.Find.ClearFormatting 'Обнуление предыдущих настроек поиска
    Selection.Find.Replacement.ClearFormatting 'Обнуление предыдущих настроек переименования
    With Selection.Find.Replacement.Font
        '
        'Возможность применение шрифта к переименовываемой области
        '
    End With
    With Selection.Find
        .Text = "*" 'Искомое значение - [ * ]
        .Replacement.Text = " " 'Переименовываемое значение (например пробел)
        .Forward = True 'Направление поиска вперед (ну всяко бывает)
        .Wrap = wdFindContinue 'Искать везде
        .Format = False 'Искать по формату - нет
        .MatchCase = False 'С учетом величены букв БОЛШИХ маленьких - нет (без разницы)
        .MatchWholeWord = False 'Слово целиком - нет (к этому контексту не применимо)
        .MatchWildcards = False 'С использованием подстановочных знаков (не заморачивайтесь) - нет
        .MatchSoundsLike = False 'С учетом произношения - нет (это не важно в данном контексте поиска)
        .MatchAllWordForms = False 'Любые слово-формы - нет
    End With
    Selection.Find.Execute Replace:=wdReplaceAll 'Выполняем ! С аргументом *переименовать всё*
 
    Application.ScreenUpdating = True 'Восстанавливаем обновление, переименование завершено.
End Sub
                        