Não é possível aplicar atributos a parâmetros de expressões lambda

Você aplicou um atributo a um parâmetro em uma definição de expressão lambda, que não tem suporte. O código a seguir causa este erro.

Sub LambdaAttribute()  
    ' Not valid.  
    Dim add1 = _  
    Function(<System.Runtime.InteropServices.InAttribute()> m As Integer) _  
                   m + 1  
End Sub  

ID do erro: BC36634

Para corrigir este erro

• Remova o atributo ou considere revisar seu código alterando a expressão lambda para uma função regular.

Confira também

• InAttribute
• Expressões Lambda
• Visão geral de atributos