如何将字符串型"2008-10-02 0000"（即2008年10月2日00：00分）改成日期型

Question

如何将字符串型例如"2008-10-02 0000"（即2008年10月2日00：00分）改成日期型
Dim t As data
Dim r As String
 r = Format$(DateAdd("d", -1, Date), "yyyy-mm-dd") & " 0000"    '前一天日期的00：00分
怎么让t=  日期型的"前一天 0000"

Answer 1

补充：
源码是这样的
Private Sub Command5_Click()
    Dim s As String
    Dim t As Date
    t = "2008-09-19 00:00"
    Open "d:\a\shahe.txt" For Input As #1
    Open "d:\a\shahe1.txt" For Output As #2
    Do While Not EOF(1)
        Line Input #1, s
        s = Format(t, "yyyy-mm-dd hhnn ") & s
        Print #2, s
        t = DateAdd("n", 1, t)
    Loop
    Close #1
    Close #2
    Kill "d:\a\shahe.txt"
    Name "d:\a\shahe1.txt" As "d:\a\shahe.txt"End Sub
因为这上面日期t = "2008-09-19 00:00" 是固定的，我想判断前一天的日期，把2008-09-19替换为改为自动计算前一天日期