List Box Add Items multie Select (1 Viewer)

Dim VarNum As Variant
Dim Str As String
    If lstDepartments.ItemsSelected.Count = 0 Then 'Make sure items have been selected
        MsgBox "Please Select At Least One Entry To Move", vbCritical, "No Entrie's Selected"
        Exit Sub
    End If
    For Each VarNum In lstDepartments.ItemsSelected 'Start a loop though the selected days
         Str = Me![lstDepartments] & "," & Me![lstDepartments].Column(1) & "," & Me![lstDepartments].Column(2)
        Me.lstAssigned.AddItem Item:=Str
    Next 'Move to next item in selected list

Str = Me![lstDepartments].Column(0, VarNum) & "," & Me![lstDepartments].Column(1, VarNum) & "," & Me![lstDepartments].Column(2, VarNum)