Ongelma combo- ja listboxin suhteen

Hei vain,

yritin tässä koodata comboboxia userformiini, niin että comboboxin valinnan persuteella listboxi täytettäisiin työlehdeltä. kaikki näyttäisikin toimivan hyvin, paitsi etten saa monivalintaa toimimaan. listboxiin tulee vain yksi valitsemistani tiedoista... Varmaan joku ihan tyhmä juttu, mutten vaan näe missä ongelma piilee ja alkaa hermo mennä

Private Sub ComboBox1_click()

Dim Sisalto As Variant
Dim Numero As Integer
Dim Lasku As Integer
Dim Valinta As Integer
Dim Tieto As Variant

Numero = Worksheets("sheet1").Range("a1048567").End(xlUp).row

ListBox1.Clear
Valinta = 0
For Lasku = 2 To Numero
Sisalto = Worksheets("sheet1").Cells(Lasku, 1).Value
Tieto = ComboBox1.Value
If sisalto = Tieto Then
With Userform1.ListBox1
.AddItem
.List(Valinta) = Worksheets("sheet1").Cells(Lasku, 2).Value
End With
End If
Next
End Sub