複数列にしたリストボックスから複数選択された項目を取得

Option Explicit

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim lrow As Long
    
    lrow = 2
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Cells(lrow, 2) = ListBox1.List(i, 0)
            Cells(lrow, 3) = ListBox1.List(i, 1)
            lrow = lrow + 1
        End If
    Next
End Sub

Private Sub UserForm_Initialize()
    
    ListBox1.ColumnCount = 2

    ListBox1.AddItem
    ListBox1.List(0, 0) = "TY-5"
    ListBox1.List(0, 1) = "パソコン"

    ListBox1.AddItem
    ListBox1.List(1, 0) = "TKB-6"
    ListBox1.List(1, 1) = "マウス"

    ListBox1.AddItem
    ListBox1.List(2, 0) = "KB-22"
    ListBox1.List(2, 1) = "キーボード"

    ListBox1.AddItem
    ListBox1.List(3, 0) = "UI-61"
    ListBox1.List(3, 1) = "DVDメディア"

    ListBox1.AddItem
    ListBox1.List(4, 0) = "UB-2"
    ListBox1.List(4, 1) = "USBハブ"

    ListBox1.AddItem
    ListBox1.List(5, 0) = "TBB-56"
    ListBox1.List(5, 1) = "タブレット"
End Sub