Private Function DateFiles(ByVal folder As String, _
        day As Integer, month As Integer, year As Integer) As String()
 
        Dim filelist As New List(Of String)
        'Schleife über Dateien im Ordner  
        For Each file As String In IO.Directory.GetFiles _
            (folder, "*.*", IO.SearchOption.TopDirectoryOnly)
            'Informationen zur Datei "file" abfragen ...
            Dim fi As New IO.FileInfo(file)
 
            'Erstelldatum mit Parametern vergleichen
            With fi.CreationTime
                If .Year = year AndAlso _
                    .Month = month AndAlso .Day = day Then
                    filelist.Add(file) 'passende Datei in Liste anhängen
                End If
            End With
        Next file
 
        'Rückgabe der Dateiliste als Array
        Return filelist.ToArray
    End Function

 Dim files As String() = DateFiles("C:\daten", 5, 1, 2013)