Dim wildcards(1) As String
        wildcards(0) = "*.txt"
        wildcards(1) = "*.exe"

Dim files As ReadOnlyCollection(Of String)
            files = My.Computer.FileSystem.GetFiles(Directory, _
              FileIO.SearchOption.SearchTopLevelOnly, wildcards)

Danke, an ALLE !!