Can't we use an array?

dim a(1 to 1000) as integer

Define an array a with 1000 elements. Use subscripts when calling, such as:

a(1), a(2)

They are all integers.

Or define a composite data.

dim Type SA

s As String

a As Long

b As integer

c As sing

End Type

Use when calling:

sa.s

sa.a

Look See if there is one suitable for you