Help me clean up file

Sub test()
Dim fn As String, ff As Integer, txt As String, i As Long, n As Long, t As Long
fn = "c:\test\test.txt"   '<--- alter to suite
If Dir(fn) = "" Then
     MsgBox "Path or file name is wrong"
     Exit Sub
End If
ff = FreeFile
Open fn For Input As #ff
Do While Not EOF(ff)
     Line Input #ff, txt
     i = i + 1      
     If i > 9 Then
          n = n + 1
          If n <=44 And n Mod 3 <> 0 Then
               t = t + 1
               ReDim Preserve a(1 To t) : a(t) = txt
          End If
          If n = 54 Then n = 0
      End If
Loop
Close #ff
With ThisWorkbook.Sheets(1).Range("a1")
     .Resize(t).Value = Application.Transpose(a)
End With
End Sub

Sub test()
Dim a(), fn As String, ff As Integer, txt As String, 
Dim i As Long, n As Long, t As Long, myDir As String
myDir = "c:\test\"   '<--- alter to suite
If Dir(myDir, vbDirectory) = "" Then
     MsgBox "Path is wrong"
     Exit Sub
End If
ff = FreeFile
fn = Dir(myDir & "*.txt")
Do While fn <> ""
     Open fn For Input As #ff
     Do While Not EOF(ff)
          Line Input #ff, txt
          i = i + 1      
          If i > 9 Then
               n = n + 1
               If n <=44 And n Mod 3 <> 0 Then
                    t = t + 1
                    ReDim Preserve a(1 To t) : a(t) = txt
               End If
               If n = 54 Then n = 0
          End If
     Loop
     Close #ff
     With ThisWorkbook.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1)
          .Resize(t).Value = Application.Transpose(a)
     End With
     fn = Dir()
Loop
End Sub