File Path VisualBasic Script

Public Sub ReadSeqFile()
    Dim filePath As String
    Dim I As Integer
    Dim myHeader As String
    I = 1
    filePath = ActiveWorkbook.Path & "\MyHeaders.txt"
    Open filePath For Input As #1
    Do While Not EOF(1)
        Input #1, myHeader
        Cells(1, I).Value = myHeader
        I = I + 1
    Loop
    Close #1
End Sub