Invalid Qualifier

[Antares19]

Hi! I've just started using vba, I've to solve a problem as soon as possible so I can't spend a lot of time studing...
When I compile the code below, I have an "Invalid qualifier" error at "arr.lenght". Someone could help me?
Thanks a lot,


Luca

Private Sub Invio1_Click()
        Dim i As Integer, zeta As Integer
        Dim buf As String, arr() As String
        
        abc = FreeFile
        Open ThisWorkbook.Path & "\r (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