dizi = Split(Me.Lot, ",")
kacaKadar = UBound(dizi)
For i = 0 To kacaKadar
deger = dizi(i)
uzunluk = Len(dizi(i))
Me.Liste.AddItem (deger & " " & uzunluk & " karakter")
Next i
Bu kodları butonun tıklanma olayına yazacaksınız.