Module Module1


    Sub Main()
        Dim number1, number2, number3, result As Double
        System.Console.WriteLine("please enter number 1")
        number1 = System.Console.ReadLine()
        System.Console.WriteLine("please enter number 2")
        number2 = System.Console.ReadLine
        System.Console.WriteLine("please enter number 3")
        number3 = System.Console.ReadLine
        Call smallest(number1, number2, number3)
        System.Console.WriteLine("this is your number")
        System.Console.WriteLine(result)


    End Sub
    'Private Function smallest(ByVal number1, ByVal number2, ByVal number3 As Double) As Double
    Private Function smallest(ByVal number1 As Double, ByVal number2 As Double, ByVal number3 As Double) As Double
        Dim result As Double
        If number1 <= number2 And number3 Then
            result = number1
        ElseIf number2 <= number3 Then

            result = number2
        Else
            result = number3

        End If

        Return result

    End Function


End Module