Дана строка S0, целое число N (≤ 4) и N файлов целых чисел с именами S1, …, SN - VB

Sub MakeArc(S0 As String, S() As String)
    fo% = FreeFile
    Open S0 For Binary Access Write As #fo%
    For i% = 1 To UBound(S, 1)
        cF$ = S(i%)
        fi% = FreeFile
        Open cF$ For Binary Access Read As #fi%
        ll& = LOF(fi%)
        BigBuf$ = Space$(ll&)
        Get #fi%, , BigBuf$
        n& = 0
        For j& = 1 To ll&
            If Asc(Mid$(BigBuf$, j&, 1)) = 10 Then n& = n& + 1
        Next j&
        nn$ = CStr(n&) & vbCrLf
        Put #fo%, , nn$
        Put #fo%, , BigBuf$
        Close #fi%
    Next i%
    Close #fo%
End Sub