Нужен help по ListBox - VB

Формулировка задачи:

Добрый вечер товарищи!
Подскажите как в ListBox, при мульти выборке, присвоить первую выбранную строку одной переменной (например data1), а вторую выбранную строку второй переменной (data2)??

Решение задачи: «Нужен help по ListBox»

textual
                            Листинг программы 
                        

                            nChoise = <font color="darkblue"><b>0</b></font>
<font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> <font color="blue">Me</font>.ListBox1.ListCount - <font color="darkblue"><b>1</b></font>
    <font color="blue">If</font> <font color="blue">Me</font>.ListBox1.Selected(i) <font color="blue">Then</font>
      <font color="blue">Select</font> <font color="blue">Case</font> nChoise
         <font color="blue">Case</font> <font color="darkblue"><b>0</b></font>
            Var0 = <font color="blue">Me</font>.ListBox1.List(i)
            nChoise = nChoise + <font color="darkblue"><b>1</b></font>
         <font color="blue">Case</font> <font color="darkblue"><b>1</b></font>
            Var1 = <font color="blue">Me</font>.ListBox1.List(i)
            <font color="blue">Exit</font> <font color="blue">For</font>
        <font color="blue">End</font> <font color="blue">Select</font>
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font> i
                        