Создать форму в которой будет отображаться список файлов *.txt в указанной папке

Sub txt1()
 
Dim FileSystemObject2 As New Scripting.FileSystemObject 'opredelenie failov v papke
Dim papka2 As Scripting.Folder
Dim fail2 As Scripting.File
Dim a, txtpath As String
Dim d2 As String
    txtpath = "G:\vba program\method of least squares\1"
    Set papka2 = FileSystemObject2.GetFolder(FolderPath:=txtpath)
    For Each fail2 In papka2.Files
            a = fail2.name
    Next
End Sub

Sub test() 
  Dim Folder As String 
  Dim wb As String 
  Dim objWb As Workbook 
  Dim workWb As Workbook 
  Dim i As Integer 
  Set workWb = ActiveWorkbook  'Запоминаем активную книгу 
  
  'Показываем диалог выбора папки 
  With Application.FileDialog(msoFileDialogFolderPicker) 
    .Title = "Выберите папку, файлы в которой нужно обработать" 
    .ButtonName = "Выбрать" 
    .AllowMultiSelect = False 
    If .Show Then Folder = .SelectedItems(1) Else Exit Sub 
  End With 
  'Начинаем читать файлы из папки 
  wb = Dir(Folder & Application.PathSeparator & "*.xls") 
  While Len(wb) > 0 
    i = i + 1 
    wb = Folder & Application.PathSeparator & wb 
    Set objWb = Workbooks.Open(wb) 
    workWb.Sheets(1).Cells(i, 1) = objWb.Sheets(1).Cells(1, 1) 
    objWb.Close False 
    wb = Dir 'читаем следующий файл 
  Wend 
End Sub