.itemdata kısmı yok
bu yönten daha kolay gibi

Dim varItm As Variant

 For Each varItm In Liste2.ItemsSelected

 Debug.Print Liste2.Column(0, varItm), Liste2.Column(1, varItm), Liste2.Column(2, varItm)

 Next varItm

sizin yönteme göre

With Me.Liste2

    If .ItemsSelected.Count <> 0 Then

        For i = 0 To .ItemsSelected.Count - 1

            dazi = dazi & .Column(1, .ItemsSelected(i)) & vbNewLine

        Next i



        End If

End With