Problem with VBIDE.CodeModule

[SeniorNewbie]

Hi out there!

may be someone here can help me to "remove the potatoes from my eyes" (a German saying for temporarily blindness). I need a procedure which react on the contents in a module code. Therefor it has to be read first what I'm trying with this snippet (Extensibility 5.3 must be activated):

Option Explicit

Sub vbCodeTest()
Dim i As Long, iLine As Integer, sModule As String
Dim vbProj As VBIDE.VBProject, vbComp As VBIDE.VBComponent, vbCode As VBIDE.CodeModule

sModule = "Modul1"
Set vbProj = ThisWorkbook.VBProject
Set vbComp = vbProj.VBComponents(sModule)
Set vbCode = vbComp.CodeModule

MsgBox vbCode.CountOfLines

For i = 1 To vbCode.CountOfLines
    'Debug.Print vbCode.Lines(i)
    Debug.Print i
Next
End Sub

As you can see the line CountofLines - 4 is deactivated. Run the code in a testmodul and you'll see it works. But not this bloody line -4. Error message "Argument is't optional"

There's a similar code block in another module- and there it works. I compared it line by line, character by character, but I can't find the mistake.

Any ideas? THX in advance!
Senior Newbie

 

[Domenic]

The Lines property of the CodeModule object contains two parameters -- StartLine and Count. StartLine is the number of the first line to return, and Count is the number of lines to return. So, to return each line, one line at a time, starting from line 1, try...

Debug.Print vbCode.Lines(i, 1)

Hope this helps!

 

[SeniorNewbie]

Hi Domenic!
It helps! I found out by my self in the meantime, but you we're quicker to post it here.
Solutions have to be posted. Even a nut like me found it out by my self...

THX a lot!!

 

[Domenic]

That's great, I'm glad you were able to figure it out by yourself.

Cheers!