Alguém poderia me ajudar?

 

Gostaria de criar um formulário para localizar e substituir o texto em um text box, já consegui fazer o localizar, porém não consigo fazer um localizar próximo, substituir e nem substituir todos.

 

Segue abaixo o meu código, se alguém souber resolver este problema,

desde já eu o agradeço!

 

Este é o código para localizar:

 

Dim Compare, Position As Integer

Position = 0
If Check1.Value = 1 Then
   Compare = vbBinaryCompare
Else
    Compare = vbTextCompare
End If
Position = InStr(Position + 1, Form1.Editor.Text, Text1.Text, Compare)
If Position > 0 Then
    ReplaceButton.Enabled = True
    ReplaceAllButton.Enabled = True
    Form1.Editor.SelStart = Position - 1
    Form1.Editor.SelLength = Len(Text1.Text)
    Form1.SetFocus
Else
    MsgBox "String not found"
    ReplaceButton.Enabled = False
    ReplaceAllButton.Enabled = False
End If

Se eu entendi então é assim:

 

Text1.text = Replace(Text1.text, "aqui vc coloca o caracter a substituir", "aqui o novo caracter")

ex.: substituir todas as "," por ";"'

 

Text1.text = Replace(Text1.text, ",", ";")