Error in highlights on function/sub arguments

[jvaldiviezo9]

Describe the bug
Just declare a Function/Sub and add an underscore to arguments.

To Reproduce
We can just use the below sample function

Code

function simple_bug_test(test_input As Range)
    
    Dim cell As Range
    Dim arr() As Variant
    
    For Each cell In test_input
    
        If IsDate(cell.Value) Then
        
            Call AddElement(arr, cell.Value)
        
        End If
    
    Next cell
    
    simple_bug_test = Application.WorksheetFunction.transpose(arr)

End Function

Expected behavior
The arguments should have the same highlight regardless if it has an underscore.
This should work as well on Sub declarations.

Screenshots

[SSlinky]

Good pick up, thanks :)