var module = _view.Target.QualifiedName.QualifiedModuleName.Component.CodeModule;

ThisWorkbook.[_CodeName] = "newName"

module.Parent.Properties.Item("_CodeName").Value = (object)_view.NewName;

            // identifiers used inside selection and before selection are candidates for parameters:
            var input = inScopeDeclarations.Where(item =>
                usedInSelection.Contains(item) && usedBeforeSelection.Contains(item)).ToList();

            // identifiers used inside selection and after selection are candidates for return values:
            var output = inScopeDeclarations.Where(item =>
                usedInSelection.Contains(item) && usedAfterSelection.Contains(item)).ToList();

Public Sub Foo(ByVal Var1 As Integer, _
               ByVal Var2 As Integer)

    Debug.Print Var1
    Debug.Print Var2

End Sub

Private Sub Method1(ByVal Var1 As Integer)

    Debug.Print Var1
    Debug.Print Var2
End Sub

Private Sub Method1()

    Debug.Print Var1
    Debug.Print Var2
End Sub

Public Sub Foo(ByVal Var1 As Integer, _
               ByVal Var2 As Integer)

    Method1 Var1, Var2
End Sub


Private Sub Method1(ByVal Var1 As Integer, ByVal Var2 As Integer)

    Debug.Print Var1
    Debug.Print Var2
End Sub

            // identifiers used inside selection /*and before selection*/ are candidates for parameters:
            var input = inScopeDeclarations.Where(item =>
                _usedInSelection.Contains(item) /*&& _usedBeforeSelection.Contains(item)*/).ToList();

Private Function Method1(ByVal fizz As Integer, ByVal buzz As Integer, ByVal value As Integer) As String
    Const fizz As Integer = 3
    Const buzz As Integer = 5
        If value Mod (fizz * buzz) = 0 Then
            result = "FIZZBUZZ"
        ElseIf value Mod fizz = 0 Then
            result = "FIZZ"
        ElseIf value Mod buzz = 0 Then
            result = "BUZZ"
        Else
            result = value
        End If
    Method1 = result
End Function

Method1 = result

Public Sub FizzBuzz()

    Const fizz As Integer = 3
    Const buzz As Integer = 5

    Dim result As String
    Dim value As Integer
    For value = 1 To 100

        result = Method1(fizz, buzz, value)
        Debug.Print result

    Next

End Sub

return "    " + result;

private static readonly IEnumerable<string> ValueTypes = new[]
{
    Tokens.Boolean,
    Tokens.Byte,
    Tokens.Currency,
    Tokens.Date,
    Tokens.Decimal,
    Tokens.Double,
    Tokens.Integer,
    Tokens.Long,
    Tokens.LongLong,
    Tokens.Single,
    Tokens.String
};