codice:
Sub AreaCerchio(Raggio As Double)
    MsgBox(CStr(Raggio * Raggio * 3.14))
End Sub
Tra l'altro VB.NET viene trattato nell'apposita sottosezione.