Finde bestemte dato ud fra string

Hej, jeg prøver at få et program at sige fra, hvis der er nogle datoer i en string der er 7 eller mindre dage frem.

Jeg har denne kode indtil videre, men jeg er låst fast og aner ikke hvordan jeg videre skal tjekke min string for enkelte dates.. Jeg har fået datoerne til at fylde en String, hvor de er skilt ad med vbNewLines. Sig endelig til hvis der er en simplere måde ;)

koden i frmMain.Load:
---------------------
Dim Reader As System.IO.StreamReader
        Dim intI As Integer
        Dim tempString As String = ""
        Dim strLines() As String
        Reader = New System.IO.StreamReader(strPath & "\" & strFile)
        strLines = Strings.Split(Reader.ReadToEnd, Environment.NewLine)
        Dim dato(strLines.Length - 2) As Date
        For intI = 0 To dato.Length - 1
            dato(intI) = Mid(strLines(intI), 1, 10)
            tempString &= dato(intI) & vbNewLine
        Next intI
        Reader.Close()
----------------------------------------------

Nogen der kan hjælpe mig med dette? Jeg har stirret mig blind på dette problem i flere dage nu, aner ikke hvordan jeg kommer videre :/