Need an array of Types

Type Record
Field F1
Field F2
End Type
Global Transaction=New Record
Dim Transaction(6000)
X=12
WriteFile file
For Transaction(X).Record = Each Record
WriteLine file, Transaction(X)\F1
WriteLine file, Transaction(X)\F2
Next

The above didn't work! Can somebody straighten it out for me, this should be my last hurdle to finish my program!
Next
CloseFile file

Dim Transaction.Record(6000)

Then every time you add a new transaction place it in the array.

Transaction(1)=New Record
Transaction(2)=New Record

etc

The array will act as an indexed pointer list to your type list.

then change your for loop to this

For X = 0 to 6000

If you weren't using an array but had declared many instances of Record, your for loop could be like this:

For r.Record = each Record
WriteLine File, r\f1
WriteLine File, r\f2
Next

Thanks