seleccionar texto en una cadena cuantas veces aparezca

[Insomnia]

Hola

Es cierto, las propiedades del textbox son muy limitadas, puedes probar con el RichTextBox, que puedes añadirlo desde Proyecto / Componentes / Microsoft RichTextBox Control.

Un ejemplo para empezar a trabajar podría ser el siguiente:

Código:

Private Sub Command1_Click()

    Dim num As Integer
    Dim cont As Integer
    
    cont = 1
    
    num = Len(Text1.Text)
    While Len(RichTextBox1.Text) > cont
        If Mid(RichTextBox1.Text, cont, num) = Text1.Text Then
            RichTextBox1.SelStart = cont - 1
            RichTextBox1.SelLength = num
            RichTextBox1.SelBold = True
        End If
        
        cont = cont + 1
    Wend
    
End Sub

Para el ejemplo agrega a un proyecto en blanco un textbox, un richtextbox y un botón. En este ejemplo busco la palabra escrita en el text1 en el richtextbox1 y subrayo las coincidencias de esa palabra. Luego podrás adaptar el código a tus necesidades concretas.

--Saludos--