Cita:
Iniciado por El negrito 
Disculpame, amigo, en tu codigo vos pusistes que el resultado de la busqueda lo muestre en un msgbox, yo reemplacé eso por un textbox con el multiline en True, con el siguiente codigo
If repre = Text12.Text Then
Text11.Text = Text11.Text + medio + Chr(10) + Chr(13)
Exit Sub
End If
y me lo muestra uno a continuacion del otro medio, y no uno debajo del otro como quisiera, yo agregue el comando chr(13) porque encontre que eso haria bajar el siguiente dato, estoy errado en algo? gracias de nuevo y disculpa que sea tan pesado.
El negrito
Usa la consante VbCrLf, que es una encadenación del ascii 13 y 10.
En cualquier caso un ListBox va mejor.