+1 for Peter's suggestions. You might try something like the following:
Sub Breaking()
Dim sLine As String
Open "C:\Output.txt" For Output As #0
Open "C:\ND.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, sLine
If (UCase$(Left$(sLine, 2)) =...