Imports System

Public Module Module1

    Public Sub Main()

        Dim Number As Integer

        Dim Roman As String

        Console.WriteLine("Enter Number 1-10")

        Number=Console.ReadLine()

        If Number=1 Then

            Roman = "I"

        ElseIf Number=2 Then

            Roman = "II"

        ElseIf Number=3 Then

            Roman = "III"

        ElseIf Number=4 Then

            Roman = "IV"

        ElseIf Number=5 Then

            Roman = "V"

        ElseIf Number=6 Then

            Roman = "VI"

        ElseIf Number=7 Then

            Roman = "VII"

        ElseIf Number=8 Then

            Roman = "VIII"

        ElseIf Number=9 Then

            Roman = "IX"

        ElseIf Number=10 Then

            Roman = "X"

        End If

        Console.WriteLine("Roman = " & Roman)

​

    End Sub

End Module