Private Sub OKButton_Click() If ListBox1.ListIndex = -1 Then
msg = "Nothing"
Else
msg = ""
For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then _
msg = msg & ListBox1.List(i) & vbCrLf
Next i End If
MsgBox "You selected: " & vbCrLf & msg
Unload Me End Sub