Excel VBA multiple selection

LISTBOX 3 連結了SHEET2 的資料, 可以multiple selection
如何可以將所選的值立即顯示在另一個LISTBOX 或者 TEXTBOX內

Private Sub ListBox3_Change()
Dim lItem As Long
For lItem = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(lItem) = True Then
ListBox4.Value = ListBox3.List(lItem)
ListBox3.Selected(lItem) = False
End If
Next

End Sub