Multi select list box

[Killian]

This should do it

For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            MsgBox ListBox1.List(i, 0) & " is selected"
        End If
    Next