Visual Basic 6 - ricerca e sostituzione caratteri.

Salve, vorrei un programma che ricerchi delle lettere in una text e che le sostituisca con delle altre.
Ho provato questo modo, ma non funziona completamente.
Chi mi sa aiutare?
Grazie.

Private Sub Command2_Click()
 Dim frase As String
 frase = Text1.Text
 Text3.Text = Replace(frase, "x", "a")
 Text3.Text = Replace(frase, "y", "b")
 Text3.Text = Replace(frase, "z", "c")
End Sub

il codice è corretto, se nn funziona è perchè in frase nn ci sono i caratteri cercati

risolto con:

Private Sub Command2_Click()
Dim frase As String
frase = Text1.Text
frase = Replace(frase, "x", "a")
frase = Replace(frase, "y", "b")
frase = Replace(frase, "z", "c")
text3.text = frase
End Sub 

grazie comunque!