Excel VBA のテキスト(スペース区切りのテキスト)読み込み方法をご指導下さい。

Excel VBA のテキスト(スペース区切りのテキスト)読み込み方法をご指導下さい。

First_1.txt、First_2.txt、First_3.txtのファイルがC:\TEMP\にあります。
それぞれA1:B10にデータが有りA列とB列はスペースで区切られています。

First_1.txt のA1:A10とB1:B10をエクセルシート名XXXのA1:A10とB1:B10に、
First_2.txt のB1:B10をエクセルシート名XXXのC1:C10へ
First_3.txt のB1:B10をエクセルシート名XXXのD1:D10へ
読み込むには下記のコードをどう修正追記すればよろしいでしょうか。
ご指導の程よろしくお願い致します。


Sub TXT_Read()
readTxtFile "XXX", "C:\TEMP\First_1.txt", True
readTxtFile "XXX", "C:\TEMP\First_2.txt"
readTxtFile "XXX", "C:\TEMP\First_3.txt"
End Sub

Public Sub readTxtFile(sheetName As String, fileName As String, Optional isReadColumnsA As Boolean = False)
Static readColumn As Integer
Dim myBook As Workbook
Set myBook = ThisWorkbook
With Workbooks.Open(fileName:=fileName)
If isReadColumnsA = True Then
.Sheets(1).Columns(1).Copy Destination:=myBook.Sheets(sheetName).Cells(1, 1)
readColumn = 2
End If
.Sheets(1).Columns(2).Copy Destination:=myBook.Sheets(sheetName).Cells(1, readColumn)
readColumn = readColumn + 1
.Close
End With
End Sub