I just created the following tool trying to see what info I could extract.
Sub fileTool()
Dim a As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim t As Integer
i = 0
k = Application.ActiveWorkbook.VBProject.VBComponents.Count
For j = 1 To k
a = Application.ActiveWorkbook.VBProject.VBComponents.Item(j).CodeModule.Name
i = Application.ActiveWorkbook.VBProject.VBComponents.Item(j).CodeModule.CountOfLines
t = t + i
Next j
MsgBox "Number of lines of code = " & t & " in a total of " & k & " modules and classes"
End Sub
This obviously includes blank lines also but its a start. The real question would be can I determine the actual size of each VBComponent.