Public Function GetFiles(ByVal folder As String, _
        Optional ByVal Searchpattern As String = "*.*") As List(Of String)
 
        Dim filenames As New List(Of String)
 
        For Each fi As IO.FileInfo In _
            New IO.DirectoryInfo(folder).GetFiles(Searchpattern)
 
            Dim item As String = _
              Format(fi.CreationTime, "dd.MM.yyyy") & " - " & fi.Name
            filenames.Add(item)        
        Next fi
 
        Return filenames
    End Function