已找到相关资料：
private sub command1_click()
dim a as date
a=now
text1.text=format(a,"yyyymmdd")
end sub

我原来的误区是now()这样。
所以一直出错。感谢！

楼主记得结贴！

我也尝试编了一下这个程序
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a As Date = Now()
        TextBox1.Text = Format(a, "yyyy/mm/dd")
        Dim b() As String
        b = Split(a, "/")
        For i = 0 To UBound(b)
            TextBox2.Text &= b(i)
        Next
    End Sub
TextBox2里出现的是    2011316 1:49:56
TEXTBOX1里出现的是    2011/49/16     不知道是为啥这样
而且想问一下  用来分开时间里时和分的“：”，怎么用split语句去掉？我尝试过用b= Split(a, "/"&":"), 和  b = Split(a, "/")  c =Split(b, "/"),但是不对
还有怎样把每个分开的数字分别添加到同一个容器中啊？
盼望指点，谢谢大家

split后，每个item怎么存？
我尝试过用
dim m() as string

For i = 0 To UBound(b)
            m(i)= b(i)
                   Next
但是这个方法不对。希望高手指点
还有一个比较笨的办法，不用for...next循环语句
就是设定六个项目，每一个都存一个值
        b0 = b(0)
        b1 = b(1)
        b2 = b(2)
        b3 = b(3)
        b4 = b(4)
        b5 = b(5)
然后 dim了一个 m ，再做乘法的运算
等你们的指点啊！
谢谢老师们