Замена части содержимого TextBox - VBA (56732)

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

Дано: 1) 3 текстовых поля: Вох1, Вох2, Вох3; 2) 3 кнопки: Добавить, Поместить, Обновить. Вводим в поле Вох1 текст, н-р "Кабинет ", нажимаем на кнопку Добавить и в поле добавляется текст "Х", в итоге содержимое поля Вох1: "Кабинет Х". Далее нажимаем кнопку Поместить и содержимое поля Вох1 отображается в поле Вох2 (содержимое поля Вох2:"Кабинет Х"). Затем вводим в поле Вох3 текст: "начальника", нажимаем кнопку Обновить и содержимое Вох2 становится: "Кабинет начальника". Т.е. "Х" заменяется на содержимое поля Вох3. Меня интересует последнее:

как заменить "Х" на содержимое определенного поля?

Решение задачи: «Замена части содержимого TextBox»

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

                            Private Sub CommandButton1_Click()
RichTextBox1.Text = RichTextBox1.Text & " X"
RichTextBox1.SelStart = Len(RichTextBox1.Text) - 2
RichTextBox1.SelLength = 2
RichTextBox1.SelColor = vbRed
End Sub
                        