Grazie dell'aiuto
Ho risolto con questo codice:
codice:
        Dim sb As New StringBuilder
        With RichTextBox1.Text
            Dim findIndex As Integer = .IndexOf("[b]", 0)
            Do While findIndex <> -1
                Dim endsAt As Integer = .IndexOf("</ b>", findIndex)
                sb.AppendLine(.Substring(findIndex + 3, endsAt - (findIndex + 3)).Trim)
                findIndex = .IndexOf("[b]", endsAt)
            Loop
        End With
        MsgBox(sb.ToString)
Adesso se vorrei eliminare tutto, e solo, quello che mi ha trovato? come faccio?