public struct QualifiedModuleName
    {
        public QualifiedModuleName(VBComponent component)
        {
            _component = component;
        }

        public QualifiedMemberName QualifyMemberName(string member)
        {
            return new QualifiedMemberName(this, member);
        }

        private readonly VBComponent _component;
        public VBComponent Component { get { return _component; } }

        public VBProject Project { get { return _component == null ? null : _component.Collection.Parent; } }

        protected virtual string GenerateMethodCall(QualifiedMemberName qualifiedMemberName)
        {
            /* Note: Powerpoint supports a `FileName.ppt!Module.method` syntax
             * msdn.microsoft.com/en-us/library/office/…
             */

            var projectFile = qualifiedMemberName.QualifiedModuleName.Project.FileName;
            var moduleName = qualifiedMemberName.QualifiedModuleName.Component.Name;

            return string.Concat(projectFile, "!", moduleName, ".", qualifiedMemberName.MemberName);

SELECT AVG(Score)
FROM Posts
WHERE PostTypeId = 2
AND OwnerUserId = 34073

Sub foo()
On Error GoTo Fail

Tata:
    Exit Sub
Fail:
    Resume Tata
End Sub

Sub bar()
On Error GoTo Fail

Tata:
    Exit Sub
Fail:
    Resume Tata
End Sub

A novice asked master Banzen: “What separates the monk from the master?”
Banzen replied: “Ten thousand mistakes!”

Private Sub RebuildPivotChart(ByVal PivotItemsList As PivotTableItems, ByVal MChart As Excel.ChartObject, ByRef CChart As Excel.ChartObject, ByRef Clinic As Worksheet)

Dim TChart As Excel.ChartObject
Dim PIL As PivotTableItem
Dim Shp As Excel.Shape
Dim Ser As Excel.Series

'this is the referenced loop:
  For Each TChart In Clinic.ChartObjects
    If TChart.Name = MChart.Name Then
      TChart.Delete
    End If
  Next

  MChart.Chart.ChartArea.Copy
  Clinic.PasteSpecial Format:="Microsoft Office Drawing Object", Link:=False, DisplayAsIcon:=False

startRule : module EOF;

module :
	WS? NEWLINE*
	(moduleHeader NEWLINE+)?
	moduleConfig? NEWLINE*
	moduleAttributes? NEWLINE*
	moduleDeclarations? NEWLINE*
	moduleBody? NEWLINE*
	WS?
;

moduleBody :
	moduleBodyElement (NEWLINE+ moduleBodyElement)*;

moduleBodyElement :
	moduleBlock
	| functionStmt
	| macroIfThenElseStmt
	| propertyGetStmt
	| propertySetStmt
	| propertyLetStmt
	| subStmt
;

lineLabel : (ambiguousIdentifier ':' WS) | lineNumber;

lineNumber : (INTEGERLITERAL WS);

block : lineLabel? blockStmt (NEWLINE+ WS? blockStmt)* NEWLINE*;