Is there a way to update two structures when you use a FileGet to read a
record?  For example:

       Public Structure MyRecordStructure
           <VBFixedString(517)> Dim All_Of_Record as String
       End Structure

       Public Structure Record1_Structure
           <VBFixedString(1)> Dim Record_Type as String
           <VBFixedString(30)> Dim CustomerName as String
           <VBFixedString(486)> Dim Rest_Of_Record as String
       End Structure

       Public Structure Record2_Structure
           <VBFixedString(1)> Dim Record_Type as String
           <VBFixedString(8)> Dim CustomerNumber as String
           <VBFixedString(30)>Dim CustomerAddress as String
           <VBFixedString(478)> Dim Rest_Of_Record as String
       End Structure
                               .
                               .
                               .
                               .
       Dim MyInputRecord as MyRecordStructure
       Dim Record_Type1 as Record1_Structure
       Dim Record_Type2 as Record2_Structure

                               .
                               .
                               .
       InputCh = FreeFile
       FileOpen(InputCh, "c:\this\is\my\file", OpenMode.Random,
OpenAccess.Default, OpenShare.Shared, 517)
       Do While Not EOF(InputCh)
           FileGet(InputCh, MyInputRecord)
           '
           '    Map the contents of MyInputRecord to Record_Type1 and
Record_Type2
           '
                               .
                               .
                               .
       End While

The FileGet method reads information into a structure that you have
declared.  What I'm trying to accomplish is an automatic mapping of one
record structure (MyInputRecord) to Record_Type1 and Record_Type2, similar
to how languages such as COBOL does it.  Each record in my file is 517
characters in length without any termination in the record (i.e.  no
CHR(13)).  Can someone offer any useful suggestions?

Thanks!