[source,vbnet,diff-id=1,diff-type=compliant]
----
Public Function Divide(divisor As Integer, dividend As Integer) As Double
    Return divisor / dividend
End Function

Public Sub DoTheThing()
    Dim divisor = 15
    Dim dividend = 5

    Dim result = Divide(divisor, dividend) ' Compliant
    '...
End Sub
----