Private Sub OKButton_Click() Dim Msg As String Dim i As Integer
Msg = "You selected" & vbNewLine
For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then
Msg = Msg & ListBox1.List(i) & vbNewLine End If
Next i
MsgBox Msg
Unload UserForm1 End Sub