Importing a text file on a line by line basis and want to modify the
file as it is being imported.

Counter = 1
Do While Seek(FileNum) <= LOF(FileNum)
Line Input #FileNum, ResultStr
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
Else
ActiveCell.Value = ResultStr
End If
Counter = Counter + 1
Loop

When the counter equals a specific value I want to process the data in a
different format. Want it to be entered in a Fixed Width format and also run
additional macros based on the values of the data.

Thanks