Private Sub Form_Load()
 Dim strMyString As String
 strMyString = "Привет! Это пример работы " & _
        "функции Replace, правда здорово!"
 'выводим оригинальный текст
 Debug.Print strMyString
 'выводим обработанный текст _
  меняем слово "Привет" на "До свидания"
 Debug.Print Replace(strMyString, "Привет", "До свидания")
End Sub

'В приведенном примере ниже (см. прикрепленный файл), находится немного другой, более понятный пример ;-)