Hey Colleges!!!

I have this question that's REALLY consuming me time!

I have this module where i made a Public type with 2000 "sub variables":

Public type Var1
v1 as long
v2 as long
v3 as long
...
end type

Each variable has 3 numbers separated with "," .
What i want to do is write a simple way of taking the values i put into each of the 2000 variables
Thats because i need to put the 3 numbers in a vb function, this is what i tryed:

For i = 1 To 2000

ii = 0 + 50

Dim a, b, c As String

a = Mid(Var1.v(i), 1, 4)
b = Mid(Var1.v(i), 5, 4)
c = Mid(Var1.v(i), 9, 4)

Picture1.PSet (0, ii), RGB(a, b, c)

Next

This doesn't work, and i wouldn´t like to write 2000 times the same code to take the values!

I appreciate any kind of help!

Thanks a lot guys!!