How to insert FileDialog option into recorded code

Can't test this without your files, but I tested the file name retrieval part:

Sub Import_Text_File()
'
' Import_Text_File Macro
'
   Dim FD As FileDialog
   Dim FilePath As String
   
   Set FD = Application.FileDialog(msoFileDialogFilePicker)
   FD.Title = "Please select file"
   FD.Filters.Clear
   FD.Filters.Add "txt files", "*.txt"
   
   If FD.Show = -1 Then
      FilePath = FD.SelectedItems(1)
      
      With ActiveSheet.QueryTables.Add(Connection:= _
      "TEXT;" & FilePath _
         , Destination:=Range("$A$1"))
         .Name = "TestText_1"
         .FieldNames = True
         .RowNumbers = False
         .FillAdjacentFormulas = False
         .PreserveFormatting = True
         .RefreshOnFileOpen = False
         .RefreshStyle = xlInsertDeleteCells
         .SavePassword = False
         .SaveData = True
         .AdjustColumnWidth = True
         .RefreshPeriod = 0
         .TextFilePromptOnRefresh = False
         .TextFilePlatform = 850
         .TextFileStartRow = 1
         .TextFileParseType = xlDelimited
         .TextFileTextQualifier = xlTextQualifierDoubleQuote
         .TextFileConsecutiveDelimiter = False
         .TextFileTabDelimiter = True
         .TextFileSemicolonDelimiter = False
         .TextFileCommaDelimiter = False
         .TextFileSpaceDelimiter = False
         .TextFileColumnDataTypes = Array(1, 1, 1, 1)
         .TextFileTrailingMinusNumbers = True
         .Refresh BackgroundQuery:=False
      End With
   
   End If

End Sub