bueno hice una funcion que (segun mi poco conocimiento) deberia buscar y un caracter, y si lo encuentra escribir otro en un richtextbox aparte. El problema es que no funciona y queria saber si alguien me podria explicar que estoy haciendo mal.

    Private Sub Remplazar(ByVal RichTextBox As Object, ByVal Texto As String, ByVal Texto2 As String)
 
        Dim Pos As Integer
 
        If Len(Texto) Then
            For Pos = 0 To Pos < Len(RichTextBox1.Text)
                If Chr(Pos) = Texto Then
                    RichTextBox2.Text = RichTextBox2.Text & Texto2
                End If
            Next
        End If
    End Sub
 

Editado: habia puesto mal el codigo antes ya que habia empezado a intentar ver donde estaba el problema.

1 tendria que usarlo en vez del RichTextBox1, pero lo voy a sacar xq como bien dijistes vos recien, no lo uso.

2 tengo entendido (por ahi me equivoco) que es lo mismo poner:

if Len(Texto) then

que:

if Len(Texto) < 0 then

Nota: No sabia que podia usar Texto.Length (soy bastante nuevo en esto)

4 lo que quise poner es que si el caracter que se encuentra en la posicion (Pos) es igual al Texto que se busca entonces...

Corrijo algo ilogico. (es un string,.. no dire mas solo corrijo).

    For Pos = 1 To RichTextBox1.Text.Length
        Rem     Procesos.
    Next
 

En un string que no se le hace una asignacion anterior debes hacerle un.

    if Not VarString is nothing then
        For Pos = 1 To RichTextBox1.Text.Length
            Rem     Procesos.
        Next
    End If
 

Sangriento Infierno Lunar!¡.

Muestra lo que tienes avanzado y explica mejor las dudas (especificas) que tengas.
Si tu objetivo es diferente al tema que se trata en este hilo, crea uno nuevo y especifico.

Edit: No revivas temas pasados...