Todo un reto!!, duda en generar TXT del FlexGrid

Edgar M
25 de Febrero del 2005
Hola compañero, se me ha presentado una gran duda ya que tengo la siguiente codificación para exportar mis datos de un MsFlexGrid a un archivo TXT:
Dim f As Integer 'file handle
Dim s As String 'path and file name
Dim k As String 'file name from user
If TypeOf GrdSS Is MSFlexGrid Then
If MsgBox("Deseas Migrar la Informacion del Grid a un Archivo Texto?",
vbQuestion + vbYesNo, "confirm") = vbNo Then Exit Sub
cd.FileName = ""
cd.Filter = "Text File(*.txt)|*.txt|All File (*.*)|*.*"
cd.DialogTitle = "Receiving File"
cd.Flags = cdlOFNHideReadOnly
cd.ShowSave
s = cd.FileName
If s = "" Then Exit Sub
If Dir(s) <> "" Then
Screen.MousePointer = 11
'open file to receive
f = FreeFile
Open s For Output As #f
'reading data to receive
Dim intRet As Integer
Dim i As Integer
Dim j As Integer
GrdSS.Redraw = False
If TypeOf GrdSS Is MSFlexGrid Then
For i = 1 To GrdSS.Rows - 1
GrdSS.Row = i
For j = 0 To GrdSS.Cols - 1
GrdSS.Col = j
If j <> GrdSS.Cols - 1 Then
Print #f, Format(GrdSS.Text & ";", "@@");
Else
Print #f, Format(GrdSS.Text, "@@")
End If
Next j
Next i
End If
GrdSS.Redraw = True
Close #f
Screen.MousePointer = 0
Exit Sub
Pero tengo el problema en que a la hora de generarme el Txt no me toma la tabulacion de acuerdo al tamaño real que tiene el campo en la base de datos (que esta elaborada en access) sino el tamaño de la palabra y coloca el separador. Como podria hacer en este sentido para que me tome el tamaño correcto del campo de la base de datos o que yo mismo pueda establecerlo en este código?. Gracias de antemano. De todos modos adjunto el programa completo un poco resumido para que me ayuden colegas y pueda servir para otros compañeros.. Se los agradezco un monton..