Multi Selection Listbox

if it's an activeX-listbox, and the listbox contains a one-dimensional array:

sub snb()
  for j=0 to sheet1.listbox1.listcount-1
    if sheet1.listbox1.selected(j) then c01 =c01 & "|" sheet1.listbox1.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
End Sub

@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