Tu problema es que estas usando pocos tabs para alinear el texto, pero el tema es que la "longitud" del texto, no se cuenta con la cantidad de caracteres, sino con la longitud propiamente dicha. X ejemplo, en la palabra "rosario", que tiene 7 caracteres, tenes que agregar un tab extra, pero en la palabra "formosa", si le agregas uno mas, se te desalinea...
Esto en cuanto a la segunda funcion AddData.
En la primera, esa es la que tenes que usar, pero haciendole un par de modificaciones a la funcion Tabular:
A mi me quedo todo ordenadito, espero que te funcione a vos tambien, pero xq no usas mejor ListBox o varios Textbox?, o incluso varios Label...
Espero que te sirva
Un abrazo
APOKLIPTICO
Esto en cuanto a la segunda funcion AddData.
En la primera, esa es la que tenes que usar, pero haciendole un par de modificaciones a la funcion Tabular:
Código (vb) [Seleccionar]
Private Function Tabular(Palabra As String, Espacio As Long, Optional AlignRight As Boolean) As String
If AlignRight Then
Tabular = Space(Espacio - Len(Palabra)) & vbTab & Palabra & vbTab
Else
Tabular = Palabra & Space(Espacio - Len(Palabra)) & vbTab
End If
End Function
A mi me quedo todo ordenadito, espero que te funcione a vos tambien, pero xq no usas mejor ListBox o varios Textbox?, o incluso varios Label...
Espero que te sirva
Un abrazo
APOKLIPTICO