Imports System

Public Module Module1

    Public Sub Main()

        Dim Number1 As Integer

        Dim Number2 As Integer

        Console.WriteLine("Enter number 1")

        Number1 = Console.Readline()

        Console.WriteLine("Enter number 2")

        Number2 = Console.ReadLine()

        If Number2 > Number1 Then

            Console.WriteLine("Number 2 is bigger")

        ElseIF Number2 = Number1 Then 

            Console.WriteLine("same")

        Else

            Console.WriteLine("Number 1 is bigger")

        End If

    End Sub

End Module

​

'PSEUDOCODE

'INTEGER: Number1, Number2

'INPUT: Number1, Number2

'IF Number2 > Number1 THEN

'       OUTPUT "Number2 is bigger"

'ELSEIF Number2 = Number1 THEN

'       OUTPUT "same"

'ELSE

'       OUTPUT "Number1 is bigger"

'ENDIF