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