Как прочитать массив из файла?

Dim alltext$, keysS, stroka
Dim a(27, 10), b() As String
 
Private Sub Command1_Click()
stroka = 0
j = 0
с=0
в=5
 
  Wrap$ = Chr$(13) + Chr$(10)  
  keys$ = ""
        Open App.Path & "/ключи.txt" For Input As #1
        On Error GoTo TooBig:   
        Do Until EOF(1)          
            Line Input #1, LineOfText$
            stroka = stroka + 1
            If stroka > 12 Then
   
          Dim f() As String
          f = Split(LineOfText$)
                
            For i = 0 To 6
           
            b(i) = f(j)
            j = j + 1
             Next i
           c = c + 6
           d = d + 6
              
                
                
             
            End If
        Loop
 
        Close #1                
        
       
    Exit Sub
    
TooBig:             
    MsgBox ("Файл ключей слишком большой")

Public Function LoadList(Path$) As String()
    'Загрузка списка
    Dim f, f1, ul, n, n1, i, j(), text$
    text = ReadBytes(Path, [Binary To Unicode])
 
    For f = 1 To 3
        n = n * 256 + Asc(Mid$(text, f, 1))
    Next
    ul = Fix(n) / 3: n = n Mod 3
    ReDim j(ul)
    On Error GoTo 10
 
    For f = 4 To ul * (n + 1) + 4 Step n + 1
        n1 = 0
 
        For f1 = f To f + n
            n1 = n1 * 256 + Asc(Mid$(text, f1, 1))
        Next
        j(i) = n1: i = i + 1
    Next
 
    For f1 = 0 To ul
        n = j(f1)
        j(f1) = Mid$(text, f, n)
        f = f + n
    Next
10
    LoadList = j
End Function