Public Sub foo(ByVal bar As Integer)

End Sub

Public Sub bar(ByVal foo As Integer)
    Me.foo foo
End Sub

Public Sub foo(ByVal bar As Integer)

End Sub

Public Sub bar(ByVal foo As Integer)
    Me.foo foo
End Sub

Public Sub Foo(ByVal Var1 As Integer, ByVal Var2 As String, ByVal Var3 As Byte, _
               Optional ByVal Var4 As Object, Optional ByVal Var5 As Date, _
               Optional ByVal Var6 As Long)

Foo Var1, _
    Var2, _
    Var3, _
    Var4
Foo Var1, Var2, _
    Var3, Var4, _
    Var5

Foo v1, v2, v3, , v4, v5

Public Sub DoSomething(ByVal a As Integer, ByVal b As String)
End Sub

Implements IClass1

Private Sub IClass1_DoSomething(ByVal a As Integer, ByVal b As String)
    'implementation here
End Sub

        private bool EnterIdentifier(ParserRuleContext context, Selection selection, bool isAssignmentTarget = false, bool hasExplicitLetStatement = false, DeclarationType accessorType = DeclarationType.PropertyGet)
        {
            var name = context.GetText();

            var matches = (name == Tokens.Me)
                ? _declarations[_qualifiedName.ComponentName].Where(IsInScope)
                : _declarations[name].Where(IsInScope);

            var parentCallStmt = context.Parent as VBAParser.ICS_B_MemberProcedureCallContext;

Call Me.foo(foo)

Public Sub Renamed(ByVal bar As Integer)

End Sub

Public Sub bar(ByVal foo As Integer)
    Call Me.Renamed(Renamed)
End Sub

Public Function Foo() As Class2
    Set Foo = New Class2
End Function

Public Sub Foo(ByVal bar As Integer)

End Sub

Public Sub bar(ByVal Foo As Integer)
    Dim bar As New Class1
    bar.Foo.Foo Foo
End Sub