vb 读取以日期开头的多行多列数据

由于对齐的原因,中间空格数目不等,无法使用split,请问各位有没好的办法?谢谢
数据举例:
2008-1-1 1.5 444.8 79.1
2008-1-2 2.0 3.8 345.6
........
vlaoda,你的回答很详细,方法也正确,就是没达到我的简单的要求,这个方法我一开始就是觉得太麻烦,想看有没更好的方法,不过仍然谢谢你,分给你,希望以后谁有更好的方法,交流下,谢谢

仍然使用split。

Dim x, y() As String

Private Sub Command1_Click()
s1 = "2008-1-1 1.5 444.8 79.1"
s2 = "2008-1-2 2.0 3.8 345.6"
x = Split(s1, " ")
zhengli
shuchu
x = Split(s2, " ")
zhengli
shuchu
End Sub

Private Sub zhengli()
ReDim y(UBound(x))
For i = 0 To UBound(x)
If x(i) <> "" Then
y(j) = x(i)
j = j + 1
End If
Next i
ReDim Preserve y(j - 1)
End Sub

Private Sub shuchu()
For i = 0 To UBound(y)
Print y(i)
Next i
End Sub

答案补充：
我以为你都要读出来呢！
只读日期很简单的。
Private Sub Command1_Click()
Dim d As Date
s1 = "2008-1-1 1.5 444.8 79.1"
s2 = "2008-1-2 2.0 3.8 345.6"
d = CDate(Mid(s1, 1, InStr(s1, " ") - 1))
Print d
d = CDate(Mid(s2, 1, InStr(s2, " ") - 1))
Print d