Dim f = If (z, Function (x1) x1, nothing)

  Public shared Sub Interest(x As Func(Of Object, Object))
    End Sub

  Interest (If (z, Function (x1) x1, nothing))  

Public Class Zi
    Public Shared Operator + (ByVal x As Func(Of Integer, Integer), y As Zi) As Boolean
        System.Console.WriteLine ("Bug")
    End Operator
End Class

 Public Shared Sub Main
        Dim zi As New Zi 
        Dim op As Boolean = (function (x) 34)  + zi      
 
    End Sub