Reading a Txt File into Excel

Sub LargeFileImport()
  
    'Dimension Variables
    Dim LineStr As String
    Dim FileName As String
    Dim FileNum As Integer
    Dim Counter As Long
    Dim LineCounter As Long
    Dim LineLength As Long
    Dim st As Long
    Dim i_loop As Long
    Dim i As Long
    Dim str As String
    Dim rowspersheet As Long
    Dim StringLength(15) As Long
    StringLength(0) = 7
    StringLength(1) = 6
    StringLength(2) = 6
    StringLength(3) = 7
    StringLength(4) = 7
    StringLength(5) = 7
    StringLength(6) = 7
    StringLength(7) = 7
    StringLength(8) = 7
    StringLength(9) = 7
    StringLength(10) = 7
    StringLength(11) = 7
    StringLength(12) = 7
    StringLength(13) = 7
    StringLength(14) = 6
    
    'set rows per sheet
    rowspersheet = 65
    
    'set record line length to 104
    'Note: 3 characters are intentionally ommitted from the end of every line
    LineLength = 104
 
    'Ask User for File's Name
    FileName = Application.GetOpenFilename
   
    'Check for no entry
    If FileName = "" Then End
   
    'Get Next Available File Handle Number
    FileNum = FreeFile()
   
    'Open Text File For Input
    Open FileName For Input As #FileNum
   
    'Create A New WorkBook With One Worksheet In It
    Workbooks.Add Template:=xlWorksheet
   
    'Set The Counter to 1
    Counter = 1
 
    LineCounter = 0
    
    'Switch-off screen updating
    Application.ScreenUpdating = False
 
    Do While Not EOF(FileNum)    ' Loop until end of file.
        LineStr = ""
        On Error Resume Next
        For i = 1 To LineLength     'Read next 104 characters from the source file
            LineStr = LineStr & CStr(Input(1, #FileNum))
        Next i
        
        LineCounter = LineCounter + 1
        'Every 40 rows processed, do the following
        If Int(ActiveCell.Row / rowspersheet) = ActiveCell.Row / rowspersheet Then
            'Switch on ScreenUpdating
            Application.ScreenUpdating = True
            'Display Importing Row Number On Status Bar - but only every 40 rows of data
            Application.StatusBar = "Importing Row " & LineCounter & " of text file " & FileName
'            MsgBox "Please now watch the status bar at the bottom of the screen to see how many rows of data are imported"
            'Autofit column to data the current worksheet
            ActiveWorkbook.Sheets(Sheets.Count).Cells.EntireColumn.AutoFit
            'Add new worksheet
            ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
            're-start line Counter to 0
            Counter = 0
            'Switch off ScreenUpdating
            Application.ScreenUpdating = False
        End If
 
'        ActiveCell.Value = LineStr
        st = 1
        'Store Variable Data Into Active Cell
        For i_loop = 0 To 14
            If i_loop = 0 Then
                ActiveCell.NumberFormat = "@"
            Else
                ActiveCell.NumberFormat = "0"
            End If
            ActiveCell = CStr(Mid(LineStr, st, StringLength(i_loop)))
            ActiveCell.Offset(0, 1).Select
            st = st + StringLength(i_loop)
        Next
        
        'Increment line Counter By 1
        Counter = Counter + 1
        
        'Select column A of the next row in the destination worksheet
        Cells(Counter, 1).Select
 
    'Start Again At Top Of 'Do While' Statement
    Loop
    
    'Autofit the last worksheet to be processed
    ActiveWorkbook.Sheets(Sheets.Count).Cells.EntireColumn.AutoFit
    
'Close The Open Text File
Close
 
'Remove Message From Status Bar
Application.StatusBar = False
 
'Switch-on screen updating
Application.ScreenUpdating = True
 
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122: