Mega Code Archive
Define function in a Module
<![CDATA[
Module Module1
Const Sale As Decimal = 100
Const TaxRate As Decimal = 0.04D
Function GetTotalSale() As Decimal
Return Sale * (1 + TaxRate)
End Function
Sub Main()
Dim TotalSale As Decimal = GetTotalSale()
Console.WriteLine(TotalSale)
End Sub
End Module
104.00
]]>