You'd better use a dictionary

sub M_snb()
  sn=sheets(1).range("D1:D10")

  with createobject("scripting.dictionary")
    for each it in sn
      x0=.item(it)
    next

    msgbox join(.keys,vblf)
  end with
End sub