Public Property Get Signature() As String
Dim code() As String
code = Split(Me.ParentModule.Lines(Me.startLine, Me.CountOfLines), vbNewLine)
Dim i As Long
For i = 0 To UBound(code)
If code(i) <> vbNullString And Left(Trim(code(i)), 1) <> "'" Then
Signature = code(i)
Exit Property
End If
Next
End Property