For i = 0 To リストボックスの変数.ListCount -1 If リストボックスの変数.selected(i) Then Msgbox リストボックスの変数.List(i) End If Next