Private Sub test()
 
        Dim dummtext As String = "Das ist der 1.1.2011 und gleich danach der" & _
          vbCrLf & "22.03.2012" & vbTab & "15.03.2015"
        Dim lst As List(Of Date) = GetAllDatesFromText(dummtext)
 
    End Sub
 
    Private Function GetAllDatesFromText(ByVal txt As String) As List(Of Date)
 
        Dim result As New List(Of Date)
 
        'bereinigen
        txt = txt.Replace(vbCr, " ")
        txt = txt.Replace(vbLf, " ")
        txt = txt.Replace(vbTab, " ")
 
        'alle "Wörter" nach Datum testen und der Liste hinzufügen
        For Each element As String In txt.Split(" ")
            If IsDate(element) Then result.Add(CDate(element))
        Next
 
        Return result
 
    End Function

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]