Получить имена файлов в папке и записать их в файл рандомно

Private Sub GetFile(MyFolder As String)
Dim MyFile                                 'Объявляем переменную для свободного файла
MyFile = FreeFile                          ' Присваиваем свободный канал, для работы с файлами
Open ("C:\TEST.txt") For Output As #MyFile 'Открываем файл TEST.TXT для записи
Dim objFSO As New FileSystemObject         ' рабоаем с FSO
Dim AllFile As File
Dim i As Integer
For Each AllFile In objFSO.GetFolder(MyFolder).Files ' ищем все файлы в папке
If Int(Rnd(1) * 10) < 1 Then               ' примерно 10% файлов пишем в файл
   Print #MyFile, AllFile.Name
   i = i + 1                               ' счетчик записанных файлов (нет в задании)
End If
Next AllFile
Print #MyFile, "Записано " & i             ' итог (нет в задании)
Close #MyFile                              'Закрываем файл
End Sub
Private Sub Command1_Click()
MyFolder = "c:\Temp"
GetFile (MyFolder)
End Sub

For Each AllFile In objFSO.GetFolder(MyFolder).Files ' ищем все файлы в папке
If InStr(1, AllFile.Name, ".exe") = 0 Then ' все, кроме EXE пишем в файл
   Print #MyFile, AllFile.Name
   i = i + 1                               ' счетчик записанных файлов (нет в задании)
End If
Next AllFile