Ограничения по вводу данных для существующих моделей - VB

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

Требуется помощь написать код. Суть такова, что допустим, есть вот такая таблица, представленная ниже. Необходимо, чтобы при наличии заданной модели автобуса со своей вместимостью( например, Citroen Jumper число мест - 70) нельзя было ввести для такой же модели Citroen Jumper, число мест <>70, как предусмотреть все варианты и защитить себя от вылета в ошибку, так как задание моделей будет осуществляться с помощью подстановки.

Решение задачи: «Ограничения по вводу данных для существующих моделей»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Type typeAutoBus
    ID As Integer
    Model As String
    Seats As Integer
    Number As String
End Type
 
Const N As Integer = 20
Dim AutoBus(1 To N) As typeAutoBus '
 
Private Sub Command1_Click()
    Dim i As Integer
    
    AutoBus(1).Model = "Citroen_Jumper":   AutoBus(1).Number = "4324"
    AutoBus(2).Model = "Mercedes_Classic": AutoBus(2).Number = "442"
    AutoBus(3).Model = "Peugeot_Boxer":    AutoBus(3).Number = "123"
    AutoBus(4).Model = "Citroen_Jumper":   AutoBus(4).Number = "3434"
    
    For i = 1 To N
         AutoBus(i).ID = i
         Select Case AutoBus(i).Model
                Case "Citroen_Jumper":    AutoBus(i).Seats = 70
                Case "Mercedes_Classic":  AutoBus(i).Seats = 100
                Case "Peugeot_Boxer":     AutoBus(i).Seats = 90
         End Select
    Next i
 
    MsgBox AutoBus(4).Seats
End Sub