An alternative:
Type Station
Field Name$
Field FileName$
Field PosX%
Field PosY%
Field PosZ%
End Type
Dim ArrayStations.Station(15, 10)
For i = 1 To 15
For j = 1 To 10
ArrayStations(i, j) = New Station
Next
Next
For i = 1 To 10
Print Str(ArrayStations(1, i))
Next
WaitKey()
End