if (character == default(char))
        {
            Key = (Keys)wParam;
        }
        else
        {
            IsCharacter = true;
        }

        private void RenameParameter()
        {
            if (_model.Target.ParentDeclaration.DeclarationType.HasFlag(DeclarationType.Property))
            {
                var parameters = _state.DeclarationFinder.MatchName(_model.Target.IdentifierName).Where(param =>
                   param.ParentDeclaration.DeclarationType.HasFlag(DeclarationType.Property)
                   && param.DeclarationType == DeclarationType.Parameter);

                foreach (var param in parameters)
                {

Public Property Get Foo(ByVal oldName As Long) As Long
End Property

Public Property Let Foo(ByVal newName As Long, ByVal value As Long)
End Property

Private Sub Foo(ByRef foo As Integer, ByRef goo As Integer)
    foo = 42
End Sub

MsgBox "|" + {enter}

MsgBox "" & _
       "|"

MsgBox "|" + {ctrl}+{enter}

MsgBox "" & vbNewLine & _
       "|"

            const string inputCode =
                @"Private Sub Foo(ByRef arg1 As Integer)
End Sub";

            const string expectedCode =
                @"Private Function Foo(ByVal arg1 As Integer) As Integer
    Foo = arg1
End Function";

            const string inputCode =
@"Private Sub Foo(ByRef arg1 As Integer)
	arg1 = 42
End Sub";

            const string expectedCode =
@"Private Function Foo(ByVal arg1 As Integer) As Integer
    Foo = 42
End Function";

'Before
Private Sub Foo(ByRef arg1 As Integer)
    arg1 = 42
End Sub

'After
Private Function Foo(ByVal arg1 As Integer) As Integer
    arg1 = 42 < -Parameter   'arg1' is passed `ByVal` and assigned a value.
    Foo = arg1
End Function

Option Compare Database
Option Explicit
'@Folder PPTCharts

Private pColorID As String
Private pRed As Long
Private pGreen As Long
Private pBlue As Long

Public Property Get ColorID() As String
  ColorID = pColorID
End Property
Public Property Let ColorID(ByVal inValue As String)
  pColorID = inValue
End Property

Public Property Get Red() As Long
  Red = pRed
End Property
Public Property Let Red(ByVal inValue As Long)
  pRed = inValue
End Property

Public Property Get Green() As Long
  Green = pGreen

[14.08.2018 15:29:04 Informational] ------ Run test started ------
[14.08.2018 15:29:06 Informational] NUnit Adapter 3.10.0.21: Test execution started
[14.08.2018 15:29:06 Informational] Running all tests in C:\Users\jverner\OneDrive\GIT\Rubberduck\RubberduckTestsCodeAnalysis\bin\Debug\RubberduckTestsCodeAnalysis.dll
[14.08.2018 15:29:07 Informational] NUnit3TestExecutor converted 22 of 22 NUnit test cases
[14.08.2018 15:29:10 Informational] Running all tests in C:\Users\jverner\OneDrive\GIT\Rubberduck\RubberduckTests\bin\Debug\RubberduckTests.dll

Option Explicit
Implements IClass1

Private mSheet As Worksheet

Public Function Create(ByVal pSheet As Worksheet) As IClass1
    With New Class1
        Set .Sheet = pSheet
        Set Create = .Self
    End With
End Function

Friend Property Get Self() As IClass1
    Set Self = Me
End Property

Private Property Get IClass1_Sheet() As Worksheet
    Set IClass1_Sheet = mSheet
End Property

Private Sub IClass1_DoSomething()
    'implementation goes here
End Sub