Private Function DateFiles(ByVal folder As String, dt As Date) As String()
 
     Dim filelist As New List(Of String)
 
     For Each file As String In IO.Directory.GetFiles _
            (folder, "*.*", IO.SearchOption.TopDirectoryOnly)
         Dim fi As New IO.FileInfo(file)
         With fi.CreationTime
            If .Year = dt.Year AndAlso _
               .Month = dt.Month AndAlso .Day = dt.Day Then
               filelist.Add(file)
            End If
         End With
     Next file
     Return filelist.ToArray
End Function

Dim filelist As String() = DateFiles(textbox3.text, CDate(textbox2.Text))