Я делаю Электронный словарь кроссвордиста. Т. е. при вводе вопроса и кол-ва
букв в textBox и последующем нажатии на кнопку Спросить в listBox выводятся
ответы.
Вот мой код:

'cmdGo-кнопка "Спросить"
'txtanswer-поле для ввода вопроса
'txtcross-поле для ввода кол-ва букв
'lstcross-лист вывода ответов
Private Sub cmdGO_Click()
If txtANSWER.Text = "Абразивный материал" Then
If txtCROSS.Text = "5" Then
lstCROSS.AddItem "Алмаз-самый крепкий"
lstCROSS.AddItem "Кварц"
lstCROSS.AddItem "Пемза"
ElseIf txtCROSS.Text = "6" Then
lstCROSS.AddItem "Гранат"
lstCROSS.AddItem "Корунд"
lstCROSS.AddItem "Наждак"
ElseIf txtCROSS.Text = "7" Then
lstCROSS.AddItem "Боразон-искуственный"
lstCROSS.AddItem "Кремень"
ElseIf txtCROSS.Text = "9" Then
lstCROSS.AddItem "Карборунд-искуственный"
ElseIf txtCROSS.Text = "11" Then
lstCROSS.AddItem "Карбокорунд-искуственный"
ElseIf txtCROSS.Text = "13" Then
lstCROSS.AddItem "Электрокорунд-искуственный"
End If
End If

и так следующий вопрос....

Все хорошо. Но беда в том, что при следующем обновлении словаря (кот. включал в себя уже более 70 пунктов)
и вводе вопроса в программу Basic мне выдает такую ошибку: "Compile error: procedure too large"
Я врубился, что, типа, код слишком длинный. Подскажите плиз, как избежать этой ошибки, и
продолжать дополнять словарь?