从txt文档的指定行读取数据到excel

[cgf_1981]

现有代码如下
Sub AAA()
Worksheets("Sheet1").Range("A:A").ClearContents
Open ThisWorkbook.Path & "\" & "123.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
[a2].Resize(UBound(s) + 1, 1) = Application.Transpose(s)
End Sub
这个只能从头开始读数据，现在要求从5行开始读，该怎么改这个代码，谢谢

[dsd999]

Sub AAA()
Dim s() As String
Worksheets("Sheet1").Range("A:A").ClearContents
    Open ThisWorkbook.Path & "\" & "123.txt" For Input As #1
        s1 = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
    ReDim s(0 To UBound(s1) - 4)
    For i = 4 To UBound(s1)
    s(i - 4) = s1(i)
    Next
   [a2].Resize(UBound(s) + 1, 1) = Application.Transpose(s)
End Sub