Opening multiple text files in a folder and appending to another

Option Explicit

Private Declare Function GetCurrentDirectory Lib "kernel32" _
    Alias "GetCurrentDirectoryA" (ByVal nBufferLength&, ByVal lpBuffer$) As Long
  
Private Declare Function SetCurrentDirectory Lib "kernel32" _
    Alias "SetCurrentDirectoryA" (ByVal lpPathName$) As Long

Public Sub TXT_Read()
    Dim strSourceFile As String
    Dim varFile As Variant
    Dim strDirOld As String
    Dim strContents As String
    Dim IntTMP As Integer
    On Error GoTo TXT_Read_Error
    strDirOld$ = String(255, 0)
    Call GetCurrentDirectory(255, strDirOld$)
    strDirOld$ = Left(strDirOld$, InStr(1, strDirOld$, vbNullChar) - 1)
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "C:\"
        .Title = "Multiselection of files"
        .Filters.Add "Text files", "*.txt; *.csv", 1
        .ButtonName = "Selection..."
        .InitialView = msoFileDialogViewList
        .AllowMultiSelect = True
        If .Show = -1 Then
            For Each varFile In .SelectedItems
                Reset
                IntTMP = FreeFile
                Open varFile For Binary As #IntTMP
                strContents = Space$(LOF(IntTMP))
                Get #IntTMP, , strContents
                Close #IntTMP
                TXT_Write (strContents)
                Kill varFile ' CAUTION - file IS deleted!!
            Next
        Else
            MsgBox "No file was selected!"
            Call SetCurrentDirectory(strDirOld$)
            Exit Sub
        End If
    End With
    On Error GoTo 0
    Exit Sub
TXT_Read_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    Call SetCurrentDirectory(strDirOld$)
End Sub

Public Sub TXT_Write(strContents As String)
    Dim strFileName As String
    Dim IntTMP As Integer
    strFileName = "C:\Temp\All.txt" ' adapt
    IntTMP = FreeFile
    Open strFileName For Append As #IntTMP
    Print #IntTMP, strContents
    Close #IntTMP
End Sub

Private Sub GetTextFiles()
Dim strFile As String

    strFile = Dir("Y:\Shoebuy\PO\*.txt")
    DestNum = FreeFile()
    Open "Y:\Shoebuy\test.txt" For Append As DestNum
 
    Do Until strFile = ""
        SourceNum = FreeFile()
        Open "Y:\Shoebuy\PO\" & strFile For Input As SourceNum
 
                Do While Not EOF(SourceNum)
                    Line Input #SourceNum, Temp
                    Print #DestNum, Temp
                Loop

            Close #SourceNum
            strFile = Dir
     Loop
   Close #DestNum
End Sub

'......
Do While Not EOF(SourceNum)
    Line Input #SourceNum, Temp
    If Trim(Temp) <> "" Then
        Print #DestNum, Temp
    End If
Loop
'......