Как вводить в TextBox числа в заданном диапазоне? - VB

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

Здавствуйте, помогите пожалуйста сделать грамотный код на ввод в TextBox только чисел от 0 до 100! Вот что я написал:

                    Листинг программы
                
Private Sub Text1_Change(Index As Integer)
 
If IsNumeric(Text1(Index).Text) = True Then
If Text1(Index).Text < 0 Then Text1(Index).Text = 0
If Text1(Index).Text > 100 Then Text1(Index).Text = 100
If Text1(Index).Text <= 100 And Text1(Index).Text >= 0 Then Text1(Index).Text = Text1(Index).Text
Else:
Text1(Index).Text = ""
    
End If
End Sub

Но при таком коде при ошибочном вводе все стирается и если набирать скажем число 10000, то в textBox-e будет 0100. Не могу заставить нормально все работать.

Решение задачи: «Как вводить в TextBox числа в заданном диапазоне?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Text1_Change(Index As Integer)
If IsNumeric(Text1(Index)) Then
  Text1(Index) = CInt(Text1(Index))
  If Text1(Index) < 0 Then
    Text1(Index) = 0
  ElseIf Text1(Index) > 100 Then
    Text1(Index) = 100
  End If
Else
  Text1(Index) = "Повторите ввод."
  Text1(Index).SelStart = 0
  Text1(Index).SelLength = Len(Text1(Index))
End If
End Sub