■

もうちょっとVBで行こうか…　VB で特にファイル入出力については、当然のようにファイル一個だけの open/close の HP は良く見かけるが
二つ以上となると余り書かれていません。ていうか 0 です。
なのでちょっと書いてみた。内容は脱初心者〜初心者上くらいのものだと思うけどね。慣れれば誰でも思いつきそうな事だし。
コードの説明はコメントを参考によろ。

    Dim str1() As String   '配列は一般的に要素数可変にする(メモリ食うから)
    Dim str2() As String
    Dim i, j As Integer

    Dim FName2 As String
    Dim FName3 As String
    
    ReDim str1(0) As String  'ここでセット
    ReDim str2(0) As String
   
    FName2 = "c:\aaa.txt"
    FName3 = "c:\bbb.txt"
    
    fNumber = FreeFile                  'FreeFile にてファイル番号を取得
    Open FName2 For Input As #fNumber   'FreeFile でファイルNoを取得したら open

    fNumber2 = FreeFile                 'FreeFile の連続は不可(同じ番号になる為)

    i = 1
    j = 1

    Do Until EOF(fNumber)
        ReDim Preserve str1(i)          'レコードが存在した場合、配列数変更(過去に登録した値は保持される)
        Line Input #fNumber, str1(i)
        MsgBox (str1(i))
        Open FName3 For Input As #fNumber2
        Do Until EOF(fNumber2)
            ReDim Preserve str2(j)
            Line Input #fNumber2, str2(j)
            MsgBox (str2(j))
            j = j + 1
            Exit Do
        Loop
        Close #fNumber2
        i = i + 1
    Loop
    Close #fNumber