yyyymmdd不是数组，需要定义成数组后才能使用
创新互联是一家集网站建设,栖霞企业网站建设,栖霞品牌网站建设,网站定制,栖霞网站建设报价,网络营销,网络优化,栖霞网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
Dim yyyymmdd(2) as String
while为条件循环，for为计数循环。一般情况下，WHILE可替代FOR，反之则不然。
你对For循环的理解是完全错误的！
For循环的代码应修改为：
For i = 0 To un
ListBox2.Items.Add(ListBox1.Items(i))
Next
就这三行就行了！i的值会自动递增的，再放i=i+1不但多余，而且会使i的值按0、2、4、6……递增，这样的话ListBox1的第1、3、5……项就被跳过了！另外，i的值是肯定不会大于un的，所以if i=un then是完全多余的。