Imports System

Public Module Module1

    Public Sub Main()

        Dim Number as Integer

        Dim RomanNum as String

        Console.Writeline("Enter number from 1 to 10")

        Number = Console.Readline()

        If Number = 1 Then

            RomanNum = "I"

        ElseIf Number = 2 Then

            RomanNum = "II"

        ElseIf Number = 3 Then

            RomanNum = "III"

        ElseIf Number = 4 Then

            RomanNum = "IV"

        ElseIf Number = 5 Then

            RomanNum = "V"

        ElseIf Number = 6 Then

            RomanNum = "VI"

            ElseIf Number = 7 Then

            RomanNum = "VII"

        ElseIf Number = 8 Then

            RomanNum = "VIII"

        ElseIf Number = 9 Then

            RomanNum = "IX"

        ElseIf Number = 10 Then

            RomanNum = "X"

        End If

        Console.Writeline("The number " & Number & " is " & RomanNum & " in Roman Numerals")

    End Sub

End Module