Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        console.writeline("I find the smallest out of four numbers that you enter")

        dim num1 as integer

        dim num2 as integer

        dim num3 as integer

        dim num4 as integer

        console.writeline("Enter the first number")

        num1 = console.readline()

        console.WriteLine("Enter the second number")

        num2 = console.readline()

        console.writeline("Enter the third number")

        num3 = console.ReadLine()

        console.writeline("Enter the fourth number")

        num4 = console.readline()

        if num1 < num2 and num1 <num3 and num1 < num4 then

            console.writeline(num1 & " is the smallest")

        elseif num2 < num1 and num2 < num3 and num2 < num4 then

            console.writeline(num2 & " is the smallest")

        elseif num3 < num1 and num3 < num2 and num3 < num4 then

            console.writeline(num3 & " is the smallest")

        elseif num4 < num1 and num4 < num2 and num4 < num3 then

            console.writeline(num4 & " is smallest")

        else

            console.writeline("There's been a problem. Make sure your numbers are all different values then try again.")

        end if

        console.WriteLine("You're welcome!")

    End Sub

End Module