[source,vbnet]
----
Sub DoSomething() ' Noncompliant
End Sub
----