[OSのVer]：WindowsXP　　　　[VBのVer]：VB.NET

いつもお世話になっております。
改行ありの固定長ファイルを作成したいのですが、下記コードでは改行なしの固定長ファイルとなり
ます。
アドバイスをお願いいたします。

    Private Structure tagALL_Titles
        <VBFixedString(4)> Dim bankcode As String
        <VBFixedString(15)> Dim bankname As String
        <VBFixedString(3)> Dim tencode As String
        <VBFixedString(15)> Dim tenname As String
    End Structure

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
        Const fixfile As String = "c:\alltitle.txt"
        Dim fixfileno As Integer
        Dim recbuff As String
        Dim alltitles As tagALL_Titles
        Dim position As Integer = 1

        fixfileno = FreeFile()

        FileOpen(fixfileno, fixfile, OpenMode.Random, , , Len(alltitles))

        With alltitles
            .bankcode = 1376
            .bankname = "ホクエツ"
            .tencode = 1
            .tenname = "ホンテン"
        End With

        FilePut(fixfileno, alltitles, position)      'Randomモードの場合
        position += 1

       With alltitles
            .bankcode = 1335
            .bankname = "ホクエツ"
            .tencode = 2
            .tenname = "イイダ"
        End With

        FilePut(fixfileno, alltitles, position)      'Randomモードの場合

    End Sub
　

改行が必要なら、そのデータの最後に ［& vbCrLf］のように改行コードを
付加して保存したらいかがですか。
又は、データとして配列を確保しておくとか、表示する時に付加するとか、
方法は色々あるかと思うのですが。

早速、ありがとうございました。
初心者なもので、悩んでおりました。
またよろしくお願いします。