检查文本文件数组中的日期/时间

Question

我试图找出我发现的其余代码并添加我需要它做的事情。我正在循环文本文件的文件夹（到目前为止工作）。文本文件包含一行，我正在读取一个数组（到目前为止工作）。我需要弄清楚的是如何从我的阵列中读取日期/时间，看它是否超过8小时。无法理解......请帮助。

Sub StringInFile()

Dim theString As Date
Dim path As String
Dim StrFile As String
Dim fso As New FileSystemObject
Dim file As TextStream
Dim line As String

theString = Now
path = "C:\Scripts\Files\"
StrFile = Dir(path & "*.txt")

Do While StrFile <> ""

    Set file = fso.OpenTextFile(path & StrFile)
    Do While Not file.AtEndOfLine
        line = file.ReadLine
        arrTokens = Split(line, ",")
        myDate = (arrTokens(2))

        If InStr(1, myDate, Now, vbTextCompare) > 0 Then
            MsgBox "Expired: " & line
            Exit Do
            Else
            MsgBox "Not Found!" & myDate
            Exit Sub
        End If
    Loop

    file.Close
    Set file = Nothing
    Set fso = Nothing

    StrFile = Dir()
Loop
End Sub