Delete Empty Lines In VBE

i'm trying to tweak Chip's code [url] to include the body of the module as well.
it works, but when there's blank lines in-between modules it'd show less of the modules.

is there a way to delete the empty line in VBE?
or did i miss something out in the code below?

Sub ListProcedures()

Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim Msg As String
Dim ProcName As String

Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("MyModule").CodeModule
With VBCodeMod