Visual Basic - Todo un reto!!, duda en generar TXT del FlexGrid

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 Dim s As String Dim k As String
cd.Filter = "Text File(*.txt)|*.txt|All File (*.*)|*.*"
cd.Flags = cdlOFNHideReadOnly
cd.ShowSave
s = cd.FileName
If Dir(s) <> "" Then
Screen.MousePointer = 11
f = FreeFile
Open s For Output As #f
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
Exit Sub
Pero tengo el problema en que a la hora de generar el Txt no me toma la tabulacion de acuerdo al tamaño real que tiene el campo en la BBDD (que esta elaborada en access) sino el tamaño de la palabra y coloca el separador. Como podria hacer para que me tome el tamaño correcto del campo de la BBDD o que yo mismo pueda establecerlo en este código?. Gracias de antemano.