Hi,
Try using TYPE ... END TYPE, then DIM an array of the TYPE.
To find min and max make
min = mytype.num(1)
max = mytype.num(1)
then check the rest. If larger max = mytype.num( ? ) where ? is the one being tested.
Same for min only smaller.
Then print the string associated with min and max.
If you have QB4.5 the example 'type_ex.bas' in dir 'advr_ex' is a place to start.
Good Luck,
Pappy