Dim d As Date = "2005-12-13"
Dim str As String = CLDate(d)Dim ary() As String = str.split(new Char(){"年","月","日"})msgbox(ary(0))msgbox(ary(1))msgbox(ary(2))