....
Code: Select all
ReDim Preserve ARRAY_IMGLIST(P1)
ARRAY_IMGLIST(P1) = P1 & "|" & Split(STATO, "-")(1)
P1 = P1 + 1
is a good idea to find item with:
If InStr(1, Join((ARRAY_IMGLIST)), vbNullChar, TR) >= 1 Then
Debug.Print IDX
End If
in my case i need to get the P1
NOTE:
ARRAY_IMGLIST is Variant dimensioned
TR is the second part of array ( Split(STATO, "-")(1))