ayuda con cadenas

[pablo_ch123]

hola, muy buenas tardes fijense que tengo un problema con cadenas, lo que pasas es que quiero imprimir un datagrid en un messagebox, y lo recorro mediante un ciclo for

For c = 0 To 6 Step +1
If (menuprincipal.productos(c, 0) = MaskedTextBox1.Text) Then
DataGridView1(0, variable).Value = menuprincipal.productos(c, 0).ToString
DataGridView1(1, variable).Value = menuprincipal.productos(c, 1).ToString
DataGridView1(3, variable).Value = Double.Parse(menuprincipal.productos(c, 2).ToString) * NumericUpDown1.Value
DataGridView1(2, variable).Value = (NumericUpDown1.Value).ToString
Dim nada As String = " "
ticket = ticket + DataGridView1(0, variable).Value + nada + DataGridView1(1, variable).Value.ToString + nada + DataGridView1(2, variable).Value.ToString + nada + DataGridView1(3, variable).Value.ToString + Chr(13)
variable = variable + 1

For w = 0 To numproagregados - 1 Step +1
totalcompra = totalcompra + Double.Parse(DataGridView1(3, w).Value)
Next
TextBox5.Text = FormatCurrency(totalcompra)
numproagregados = numproagregados + 1
MaskedTextBox1.Text = ""
'' TextBox4.Enabled = True
MaskedTextBox1.Focus()


*** trato de guardar todo el renglon en una variable llamada ticket

Dim nada As String = " "
ticket = ticket + DataGridView1(0, variable).Value.ToString + nada + DataGridView1(1, variable).Value.ToString + nada + DataGridView1(2, variable).Value.ToString + nada + DataGridView1(3, variable).Value.ToString + Chr(13)

y asi sucesivamente para al final solo imprimir ticket pero lo hace desordenado, no imprime las columnas acomodas, espero que me puedan ayudar y de ante mano se les agradece :P

nota : en el datagrid se almacenan cadenas y numeros, dependiendo de la columna, las cadenas correspeonden a un arreglo definido por ejemplo:

"computadora "
"impresora "
"teclado "

las declaro asi porke me imagino ke tendran la misma extension, pero al final no resulta asi .

[pablo_ch123]

ok, me borro el espacio en blanco pero seria asi

"computadora......... "
"impresora.............. "
"teclado ..................."

[pkj]

Has probado a insertar más de 1 espacio entre medias?
Te puedes asegurar de que la longitud sea mínima.

ticket = ticket + DataGridView1(0, variable).Value.ToString + Space(20 - Len(DataGridView1(0, variable).Value.ToString)) + DataGridView1(1, variable).Value.ToString + Space(20 - Len(DataGridView1(1, variable).Value.ToString)) + DataGridView1(2, variable).Value.ToString + Space(20 - Len(DataGridView1(2, variable).Value.ToString)) + DataGridView1(3, variable).Value.ToString + Chr(13)

Si sigue fallando es que usas una fuente de texto que no tiene el mismo tamaño para cada caracter. Prueba con Arial.

Es lo más simple que se me ocurre.

Suerte