想从安排好格式的字符串中取出其中的变量，怎么取？
有一段代码MadeDate.Text = Str$(SysI.Year) + "-" + Trim(Str$(SysI.Month)) + "-" + Trim(Str$(SysI.Day))，如果我想再写一段代码，把MadeDate.Text 中的三个变量SysI.Year，SysI.Month，SysI.Day取出来，应该怎么写呀？
Private Sub Form_Click()
Dim a() As String
a = Split(MadeDate, "-")
Print a(0)
Print a(1)
Print a(2)
End Sub
