How do I change the connection "Connection:="TEXT;C:\Users\Alex\Desktop\SalesData.txt"," to a different module?

[OzBlake]

sigma_coding_youtube/vba/vba-excel/data-imports/Import Text File - Non Power Query.bas

Line 6 in a4e8df9

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\Alex\Desktop\SalesData.txt", Destination:=Range("$A$1"))

[OzBlake]

Need Help Please..
How do I change the connection to "with ActiveSheet.QueryTables.Add(Connection:="TEXT............" the get_path module?

Sub get_path_D01()
Dim diaFolder As FileDialog
Dim Fname As String

Set diaFolder = Application.FileDialog(msoFileDialogFilePicker)
                                      'msoFileDialogFilePicker
                                      'msoFileDialogFolderPicker
                                      'msoFileDialogOpen
                                      'msoFileDialogSaveAs
diaFolder.AllowMultiSelect = False

If diaFolder.Show = -1 Then
    Fname = diaFolder.SelectedItems(1)
    Cells(3, "b").Value = Fname
Else
    Exit Sub
End If

End Sub

---

Sub CreatDataTable()

with ActiveSheet.QueryTables.Add(Connection:="TEXT............