请问如何分割文本?
Private Sub Command1_Click()
Dim a, b, c, d As Integer
a = Format(Date, "mm")
b = Format(Date, "dd")
c = Format(Date - 7, "mm")
d = Format(Date - 7, "dd")
Text1.Text = c & "月" & d & "日至" & a & "月" & b & "日"
End Sub
下一步我要从Text1.Text中提取a, b, c, d,请问怎么办?