écrire plusieurs lignes dans un RichTextBox?

Bonjour,
If ComboBox1.SelectedItem = "nom" Then
FileOpen(1, chemin, OpenMode.Input)
While (Not EOF(1))
x = LineInput(1)
t = x.Split("/")
If t(0) = TextBox1.Text Then
RichTextBox1.Text = x & vbCrLf
End If
End While
FileClose(1)
je travaille sur ce bout de code mais le probleme c que le rich text box affiche seulement la derniere valeur qui verifie ma condition et je veux qu'il affiche toutes les lignes !!!!

Merci d'avance :)