Visual Basic - Duda macro substituir palabras.

Hola,
Me gustaría saber si alguien conoce una macro para substituir palabras. Yo tenía una que hice en un minicurso de Visualbasic y ahora no la encuentro! Tengo un nivel informático elevado a nivel usuario, pero este no es mi ámbito y la programación es un auténtico misterio para mí aún :(

Lo máximo que sé escribir de la macro de substitución es esto:

Sub Substitucion()
Substituir "verde", "verdoso"
Substituir "rojo", "granate"
End Sub

¿Alguien me ayuda?

Gracias!!

m

En Visual Basic podeis utilizar la función "Replace".
Os pongo unejemplo: Un textBox (Name = Text1) y un CommandButton (Name = Command1), en el TextBox escribís "Verde" o cualquier frase que lo contenga y pulsais el CommandButton:

Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, "Verde", "Verdoso", , , vbTextCompare)
End Sub