' Visual Basic 2008 9.0 .NET Examples - Introduction to Functions - Procedures and Functions : 
Module Example5
    Sub Main()
        Dim dividend As Integer = 24
        Dim divisor As Integer = 6
        Dim quotient As Single
        '
        If Not IsZero(divisor) Then quotient = GetQuotient(dividend, divisor)
        '
        Console.WriteLine(quotient)
        '
        Console.ReadLine()
    End Sub
    Function IsZero(ByVal value As Integer) As Boolean
        If value = 0 Then IsZero = True
    End Function
    Function GetQuotient(ByVal dividend As Integer, _
                         ByVal divisor As Integer) As Double
        GetQuotient = dividend / divisor
    End Function
End Module
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.