codice:
Private Sub List1_ItemCheck(Item As Integer)
If List1.Selected(i) = True Then
                                 vardipass(i) = List1.List(i)
                            else
                                vardipass(i) = Empty
End If
End Sub
ovviamente devi aver dichiarato una variabile di nome vardipass in un modulo come public...anzi deve essere un vettore.
public vardipass(100)
così hai un vettore pubblico di 100 posti nel quale viene memorizzato il valore di ogni elemento checkato.
ad esempio se il 5° elemento e checkat tu nel vettore vardipass al posto n° 5 avrai il testo del 5° elemento della lista. spero di essere stato chiaro