По введенному числу n напечатать название фигуры - VB

Формулировка задачи:

Дано целое число n, соответсвующее количеству углов геометрической фигуры. Составить программу, которая по введенному числу n печатает название фигуры (например, при n = 3 программа напечатает треугольник, при n=5 пятиугольник, при n>8 многоугольник. В случае если вводится число меньше 2, выводится сообщение об ошибке! Это что-то сложное!

Решение задачи: «По введенному числу n напечатать название фигуры»

textual
                            Листинг программы 
                        

                            Sub N_угольник()
Const n = 3
If Not IsNumeric(n) Then Exit Sub
 
    Select Case n
    Case Is < 3 'ничего не сообщаем; а можем попросить изменить n
    Case Is < 4: MsgBox "треугольник"
    Case Is < 5: MsgBox "четырёхгольник"
    Case Is < 6: MsgBox "пятиугольник"
    Case Is < 7: MsgBox "шестиугольник"
    Case Is < 8: MsgBox "семиугольник"
    Case Is < 9: MsgBox "восьмиугольник"
    Case Else: MsgBox Int(n) & "-угольник"
    End Select
 
End Sub
                        