Sorting within an array, or in a combobox

Why not using Excel ?

Private Sub UserForm_Initialize()
  c00= Dir("\\corp.bloomberg.com\pn-dfs\global data\research-blaw-profiles\Common\Ask Bloomberg\Custom_Tools\DataSets\*.?*")

  Do Until c00=""
    c01=c01 & "|" & c00
    c00=dir
  Loop
  sn=split(mid(c01,2),"|")

  with sheets(1)
    .cells(1,200).resize(ubound(sn)+1)=application.transpose(sn)
    with .columns(200)
      .sort sheets(1).cells(1,200)
      combobox1.list=.specialcells(2).value
      .clearcontents
    end with
  end with
End Sub