Private Sub Invio1_Click()
        Dim i As Integer, zeta As Integer
        Dim buf As String, arr() As String
        
        abc = FreeFile
        Open ThisWorkbook.Path & "
 (1).txt" For Input As abc
        i = 1
        
        Do While Not EOF(abc)
        Line Input #abc, buf
            arr = Split(buf, Chr(9))
            For zeta = 1 To arr.lenght
            Cells(i + 12, zeta) = arr(zeta)
            Next
            i = i + 1
        Loop
    
   Close abc
End Sub