Public Function GetFolderCreationTimeLimits(ByVal folder As String, ByVal _
  suchtag As Date, ByRef mindate As Date, ByRef maxdate As Date) As Boolean
 
        Try
            Dim dinf As New IO.DirectoryInfo(folder)
            suchtag = TextBox2.Text
            mindate = dinf.GetFiles.Min(Function(x) x.CreationTime)
            maxdate = dinf.GetFiles.Max(Function(x) x.CreationTime)
            Return True
        Catch
            Return False
        End Try
 
    End Function