Text File Importing

Hi All,

First off, glad to be on the forums here.

I have a question regarding importing text files into a spreadsheet using a Macro in Excel 2007. Below is my code:

Sub ReadTextFile()
Dim A As Single, B As Single, C As Single, D As Single, E As Single, F As Single
  Dim iRow As Long
  Dim Fname As Variant
  Fname = Application.GetOpenFilename("Text Files (*.txt),*.txt", , _
           "Select Text Data File")
  If Fname = False Then Exit Sub
  Open Fname For Input As #1
  iRow = 3
  Do Until iRow = 3003
  Input #1, A, B, C, D, E, F
     Cells(iRow, 1) = A
     Cells(iRow, 2) = B
     Cells(iRow, 3) = C
     Cells(iRow, 4) = D
     Cells(iRow, 5) = E
     Cells(iRow, 6) = F
     iRow = iRow + 1
     Loop
  
  Cells(iRow, 8) = Fname
  Close 1
End Sub

This reads in text from a 6 column text file (.txt) into 6 corresponding columns in a worksheet. My question is about how to skip a line. In each text file, the first line is a blank, then the rest of the 3000 lines are comma-delimited into 6 columns. What could I add to the above code to skip the first line (which is essentially a single character since it has no commas), and properly import the rest of the data.

With the blank, every cell gets offset by one, and my data is imported incorrectly. I have gotten around this by deleting the space in each text file prior to reading it in, but I think i can account for it in the code.

Thanks for the help, and sorry for the long-winded question.