Dynamic Subroutine Generation Creates Compile Error

I'm am running Excel 2003 SP2 on Windows XP SP2.

I have a macro which modifies cells in a spreadsheet. But for brevity sake, I have an empty spreadsheet which has an Auto_open macro and two subroutines in it. The subroutines initially consist of just the Sub and End Sub statements.

The Auto_open procedure reads in lines from two text files (generated by another application), and inserts the lines into each of the empty subroutines. Auto_open then runs the two subroutines.

I have been able to get this dynamic creation of the subroutines to work for one subroutine, but not for the second. I receive the compile error: "Only comments may appear after End Sub, End Function, or End Property". I don't see anything wrong with the inserted code.

The modified subroutines appear fine, and if I save the macros with the modified code, close excel, rename the text files so they are no longer read in, and re-open the spreadsheet, the auto_open procedure and the two subroutines run fine. This tells me the code itself is okay, and yet it won't work during the initial run.

Below is the macro code in its original state:

Sub Auto_open()
Dim fso, f
Dim VBCodeMod As Object
Dim LineNum As Long
Dim StrFileName As String

ShowVisualBasicEditor = True

Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("Module1").CodeModule

End Sub
----------------------
The contents of the read in file, %TEMP%subA.txt, is just one line:
MsgBox("inside SubA")

The contents of the read in file, %TEMP%subB.txt, is just one line:
MsgBox("inside SubB")

------------------------
When I open the spreadsheet the first time, it gives me the first message box from Sub A, but then generates the error and highlights the Sub SubB() line.

To duplicate the problem:
1. Insert the macro into a spreadsheet. Save and exit it.

2. Create the files %TEMP%subA.txt and %TEMP%subB.txt containing the single MsgBox lines.

3. Open up the spreadsheet. SubA will run and a message box will appear. Then the compilation error will occur.

4. Save and exit the spreadsheet.

SubA will now contain:

Sub SubA()
MsgBox("inside SubA")

End Sub

SubB will now contain:
Sub SubB()
MsgBox("inside SubA")

End Sub

5. Rename the two text files, so that the next time you open the spreadsheet it won't try to insert the lines from the files into the subroutines.

6. Re-open the spreadsheet. Two message boxes will now appear, one from SubA and one from SubB.