Pete's Dumb Idea of the Day!

[SMcNeill]

Why not just make this the simplest thing in the world?  Just read it into a set of arrays and forget about it.

Code: (Select All)

Data 1,one,the first

Data 2,two,the second

Data 3,three,the third

Data 4,four,the forth



Dim number(1 To 4), nam(1 To 4) As String, order(1 To 4) As String



For i = 1 To 4

    Read number(i), nam(i), order(i)

Next



For x = 1 To 4

    Print number(x), nam(x), order(x)

Next

There's no need to ON x RESTORE label1, label2, label3, label4.  You read that data into your array, stored it there, and now it's indexed via that array.

Doesn't get any simpler than that.