Ввод значений в Textbox - VB

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

Добрый день.Возникла такая проблема:Необходимо ограничить диапазон вводимых значений в TextBox. К примеру 1-5 и чтобы выводилось сообщение в msbox что введено число вне диапазона и была возможность повторно ввести значение

Решение задачи: «Ввод значений в Textbox»

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

                            Option Explicit
 
Private Sub Text1_Change()
If Text1 <> "" Then
    If Val(Text1) < 1 Or Val(Text1) > 5 Or Len(Text1) > 1 Then MsgBox "Число вне диапазона!Повторите ввод!": Text1 = ""
End If
End Sub
                        