Problemer med array

Hej igen igen...

Jeg har en checkedlistbox hvor jeg, for hver gang en bruger checker/unchecker en linie, vil gemme denne information i et array.

Jeg Dim'er mit array som det første når formen loades og på en event (itemcheck) skal der lægges data i mit array.

Det jeg vil gemme er 2 værdier, en tekst og en status for "fluebenet", altså 0 og 1.

Hvordan gør jeg det??
Min Dim ser således ud:

Dim mitarray(,) As String

og i min funktion:
Redim Preserve mitarray(tekst, status)

Hvordan får jeg data ind i mit array som jeg bagefter kan løbe igennem og behandle?????

Please, hvis du skulle kende svaret som kom meget gerne med det...

Mvh
Systemnissen