有一段代码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