Module Module1
Sub Main()
Dim v As Double = volume(3.13, 2.76, 6.21)
Console.WriteLine("volume: {0}", v)
End Sub
Function volume(length As Double, width As Double, height As Double) As Double
Return length * width * height
End Function
End Module
' run:
'
' volume: 53.646948