Here's an example
Code:
Private Function GetSum(byval num1 as double, byval num2 as double) as double
   Dim result as Double = num1 + num2
   Return result
End Function

'Usage:
Label1.Text = GetSum(123.5, 345.7).ToString()