' Visual Basic 2008 9.0 .NET Examples - Introduction to Functions - Procedures and Functions : 
Module Example4
    Sub Main()
        For value As Integer = -1 To 1
            Console.WriteLine("Value " & value & " : ")
            Console.WriteLine(GetInfo1(value))
            Console.WriteLine(GetInfo2(value))
            Console.WriteLine(GetInfo3(value))
            Console.WriteLine()
        Next
        '
        Console.ReadLine()
    End Sub
    Function GetInfo1(ByVal value As Integer) As String
        Select Case value
            Case Is = 0
                Return "Value is zero."
            Case Is > 0
                Return "Value is positive."
            Case Is < 0
                Return "Value is negative."
        End Select
    End Function
    Function GetInfo2(ByVal value As Integer) As String
        Dim info2 As String
        Select Case value
            Case Is = 0
                info2 = "Value is zero."
            Case Is > 0
                info2 = "Value is positive."
            Case Is < 0
                info2 = "Value is negative."
        End Select
        Return info2
    End Function
    Function GetInfo3(ByVal value As Integer) As String
        Select Case value
            Case Is = 0
                GetInfo3 = "Value is zero."
            Case Is > 0
                GetInfo3 = "Value is positive."
            Case Is < 0
                GetInfo3 = "Value is negative."
        End Select
        'Return GetInfo3                                                   ' (1)
    End Function
End Module
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.