Come faccio a comparire il risulato oltre che a sottolinearlo in una richtextbox1?
Ecco il codice che lo sottolinea nella listbox1 e vorrei che mi compare nella richtextbox1 e che se ripremo il bottone mi cerca il successivo.

codice:
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MatchFound As Boolean = False
        Dim I As Integer = 0
        Do
            If InStr(ListBox1.Items(I).ToString, TextBox1.Text, CompareMethod.Text) > 0 Then
                MatchFound = True
                ListBox1.SelectedIndex = I
            End If
            I += 1
        Loop Until (I >= ListBox1.Items.Count) Or (MatchFound)
    End Sub
Perfavore aiuto ( ho messo il codice)