Visual Basic - problemas con listados por pantalla

Hola buen dia, a ver si alguen puede ayudarme a solucionar esto:

este listado me sale por pantalla y por supuesto despues por impresora, y no lo quiero asi, quiero que quede encolumnado,

necesto que me salga encolumado, ya que si el nombre o la direccion es mas chica corre el siguiente dato

LISTADO ALFABETICO Fecha Sábado, 3 Septiembre 2005

-----------------------------------------------------------------------------------------------------------------------------
Nº Nombre y apellido Dirección Teléfono

Abranchuk Abranchuk 25 de Mayo 735 4846277
Aguilar Aguilar J.J. Passo 641 4846073
Aguilar Aguilar Dean Funes 106 4846769
Ahumada Ahumada Primera Junta 128 4846539
Aiza Aiza Balcarce 681 4557473
Aldecoa Aldecoa Saavedra 621 4846518
Aldecoa Aldecoa J.V. Gonzalez 109 4846620
Alderete Alderete 28 de Septiembre 23 1
Alegre Alegre Lugones 362 4846489
Allende Allende Darregueira 300 Bahía Bla 1
Almada Almada Bº 10 de Junio casa 191 1
Almada Almada Dean Funes 076 4846819
Almada Almada Bº Arquitectura casa 64 4846319
Almada Almada Rodriguez Peña 233 1
Almendro Almendro Alvarez Jonte 265 1
Alonso Alonso Gurruchaga 1250 4847007
Alota Alota Dean Funes 155 4846093
Alota Alota Castelli 062 4846603
Altamiranda Altamiranda Saavedra 527 48




probe con :

Text5.Text = Text5.Text & vbCrLf
Text5.Text = Text5.Text + pacientes.Recordset.Fields("papellido") & ""
Text5.Text = Text5.Text + Chr(32) + pacientes.Recordset.Fields("papellido")

y tambien con este

Text1.Text = Text1.Text + vbCrLf + Left(Trim(nombre),50) + Space(50 - Len(Left(Trim(nombre),50)))

y ninguno funciona, este ultimo me llama mas la atencion, ya que le estoy dicendo exactamente donde listar, es decir en que columna, con la diferencia del LEN y el numero 50 y tampoco funciona.

alguien puede ayudarme por favor!