Imports System

Public Module Module1

    Public Sub Main()

        dim intRangeNumber as Integer = 111

        dim strRomanText as String = ""

        Select (intRangeNumber)

        case 1:

            strRomanText = "I"

        case 2:

            strRomanText = "II"

        case 3:

            strRomanText = "III"

        case 4: 

            strRomanText = "IV"

        case 5:

            strRomanText = "VI"

        case 6:

            strRomanText = "VII"

        case 7:

            strRomanText = "VIII"

        case 8:

            strRomanText = "IX"

        case 9:

            strRomanText = "X"

        case 10:

            strRomanText = "V"

        case Else:

            strRomanText = "None"

        End Select

        Console.Write(strRomanText)

    End Sub

End Module