Чтение текстового файла столбцами

Sub Load_File(Fname as string, Arr_1() as string, Arr_2() as string)
      fi%=FreeFile
      Open Fname for Input As #fi%
      k%=0
      Do While Not EOF(fi%)
          Line input #fi%,Stri$
          Tmp=Split(Stri$," ")
          k%=k%+1
          Arr_1(k%)=Tmp(1)
          Arr_2(k%)=Tmp(2)
      Loop
      Close #fi%
End Sub

Function TM() As Double 'время в секундах с учетом перехода на новые сутки
    Static D As Integer, OldT As Double
    Dim t As Double
    t = Timer
    D = D - (t < OldT)
    OldT = t
    TM = t + D * 86400#
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1 = "" Then t1 = TM: Caption = Format(TM, "0.00")
If KeyAscii = AscW(" ") Then Caption = Format(TM - t1, "0.00")
End Sub

   Dim File As String, CF As String    'объявим пеpеменнyю для имени файла и его cодеpжимого 
   File = "d:\ca.log"    'ycтановим имя файла и пyть 
   Open File For Binary As #1    'откpоем файл для чтения 
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла 
   Close #1    'закpыть файл

Do While Instr(1, CF, "  ") > 0 Then ' между кавычками 2 пробела
CF = Replace(CF,"  ", " ")
loop

          Line input #fi%,Stri$
          Tmp=Split(ATrim(Stri$)," ")
 
 
Function ATrim(s As String) As String
Dim i&, i1&
ATrim = Trim$(s)
i1 = Len(ATrim)
Do
    i = i1
    ATrim = Replace$(ATrim, "  ", " ")
    i1 = Len(ATrim)
Loop Until i = i1
End Function

Function ATrim1(s As String) As String
Dim d$: d = Trim$(Replace$(s, "  ", " ")): If Len(s) = Len(d) Then ATrim1 = s Else ATrim1 = ATrim1(d)
End Function

If KeyAscii = AscW(" ") Then Caption = Format(TM - t1, "0.00")

Private Sub Text1_Change()
STATIC t1 As Single  '!!!
If Len(Text1) = 1 Then t1 = Timer
If Right$(Text1, 1) = " " Then
  Label1 = Text1 & Format(Timer - t1, "0.00")
  Text1 = ""
End If
End Sub

f = FreeFile
Open App.Path & "\TEST.txt " For Input As #f   
Do While Not EOF(f)
    Line Input #f, CF
    Do While InStr(1, CF, "  ") > 0  
        CF = Replace(CF, "  ", " ")
    Loop
    tmp = Split(CF, " ")
    k = k + 1
    Arr1(k) = tmp(1)
    Arr2(k) = tmp(2)
Loop
Close #f

dim a as string

a$