Задача (Visual Basic) - VB

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

Добрый день. Как сделать так, чтобы, когда я купил товар мне предложили бы купить что-нибудь еще. Заранее спасибо.

Решение задачи: «Задача (Visual Basic)»

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

                            Sub Кнопка1_Щелчок()
y = InputBox("Введите название товара: ")
For I = 2 To 11
If y = Cells(I, 2) Then t = I
Next I
If t = 0 Then MsgBox ("Товар не найден"): GoTo 1
MsgBox ("Название товара: " & Cells(t, 2) & ", Количество:" & Cells(t, 3) & "цена за шт.:" & Cells(t, 4))
Z = InputBox("Введите кол-во товара")
If Val(Z) > Cells(t, 3) Then MsgBox ("Извините, у нас не хватает " & Val(Z) - Cells(t, 3) & "единиц товара"): GoTo 1
x = MsgBox("Вы действительно хотите купить товар на сумму? " & Cells(t, 4) * Val(Z), vbYesNoCancel)
If x = 6 Then d = InputBox("Введите сумму")
If x = 7 Then GoTo 1
If Val(d) = Cells(t, 4) * Val(Z) Then MsgBox ("Спасибо за покупку")
If Val(d) > Cells(t, 4) * Val(Z) Then MsgBox ("Спасибо за покупку, ваша сдача " & Val(d) - Cells(t, 4) * Val(Z) & "рублей")
If Val(d) < Cells(t, 4) * Val(Z) Then MsgBox ("Извините, не хватает " & Cells(t, 4) * Val(Z) - Val(d) & "рублей")
1:
End Sub
                        