Multi Selection Listbox

@Snb
This code is giving some error, its saying Syntax error
This is the code :

Dim j As Long
 For j = 0 To Sheet1.ListBox1.ListCount - 1
    If Sheet3.lstSpecialization.Selected(j) Then
        c01 = c01 & "|" Sheet3.lstSpecialization.List (j)
  Next
  If c01 <> "" Then
    sn = Split(Mid(c01, 2), "|")
    Sheet2.Cells(rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
  End If