Visual Basic para Aplicaciones - crear archivos planos

Buenos dias

estoy realizando un aplicativo en visual basic 2010 que genere archivos planos (txt)para bancos
estos bancos tiene un formato especifico para que pueda funcionar un ejemplo

NOMBRE DEL CAMPO long/bytes posicion Inicial posicion final inicial formato
Número de Cuenta Destino 25 1 25 alfanumerico



No Factura|Concepto |Vlr Bruto |Base Iva|Retenciones|IVA |ICA |Retención|Otros Descuentos|Vlr Neto
XXXXXX XXXXXX $XXXX $XXXX $XXX $XX $XX $XXXX $XXXXXXX $XXXX
XXXXXX XXXXXX $XXXX $XXXX $XXX $XX $XX $XXXX $XXXXXXX $XXXX
XXXXXX XXXXXX $XXXX $XXXX $XXX $XX $XX $XXXX $XXXXXXX $XXXX
XXXXXX XXXXXX $XXXX $XXXX $XXX $XX $XX $XXXX $XXXXXXX $XXXX
XXXXXX XXXXXX $XXXX $XXXX $XXX $XX $XX $XXXX $XXXXXXX $XXXX

como le asigno las longitudes a los campos para que acepten el formato q especifique??
tengo una base de datos en sql server 2008 ya con las tablas y un procedimiento guardar
o esto se puede hacer desde sql y llamarlo como un procedimiento en un formulario visual basic
el codigo que tengo en vb me genera el archivo pero no le he asignando las longitudes no se como espero que me puedan ayudar


Imports System.IO
Public Class FormColpatria

Private Sub FormColpatria_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub



Private Sub Btngenerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btngenerar.Click

Try
Dim objarchivo As New System.IO.StreamWriter("./archivotexto.txt")
objarchivo.Write(TxtNsecuReg.Text + " ")
objarchivo.Write(TxtTpReg.Text + " ")
objarchivo.Write(TxtF_recibo.Text + " ")
objarchivo.Write(TxtNitcli.Text + " ")
objarchivo.Write(Txtclave.Text + " ")
objarchivo.Write(TxtNregEnv.Text + " ")
objarchivo.Write(TxtOfiPago.Text + " ")
objarchivo.Write(TxtNumCuenta.Text + " ")
objarchivo.Write(Txtespacios.Text + " ")
objarchivo.Close()
TxtNsecuReg.Text = ""
TxtTpReg.Text = ""
TxtF_recibo.Text = ""
TxtNitcli.Text = ""
Txtclave.Text = ""
TxtNregEnv.Text = ""
TxtOfiPago.Text = ""
TxtNumCuenta.Text = ""
Txtespacios.Text = ""


Catch ex As Exception
MsgBox("no se pudo guardar el archivo", MsgBoxStyle.Critical)
End Try

End Sub

Private Sub Btnleer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnleer.Click
Try
Dim miruta As String = ("./archivotexto.txt")
Dim archivo As New System.IO.StreamReader(miruta)


'Devuelve la matriz de cadenas resultante de la separación de una cadena en subcadenas.'
Dim S() As String = Split(archivo.ReadToEnd, " ")

TxtNsecuReg.Text = S(0)
TxtTpReg.Text = S(1)
TxtF_recibo.Text = S(2)
TxtNitcli.Text = S(3)
Txtclave.Text = S(4)
TxtNregEnv.Text = S(5)
TxtOfiPago.Text = S(6)
TxtNumCuenta.Text = S(7)
Txtespacios.Text = S(8)
archivo.Close()

Catch ex As Exception
MsgBox("No se pudo guardar el archivo", MsgBoxStyle.Critical)

End Try
End Sub
End Class

sólo decirte que le erraste de foro... éste es de VBA, no de VB...

Saludos