Visual basic 1)закусочная продает воду по 10 рублей за банку ,но не менее 5 банок одному покупателю. если покупатель запросит более 5 банок ,выдать ,в противном случае -сумму покупки 2)ввести годы рождения двух девочек.определить старшую из них. нужно девушке , а я на паскале сейчас мучу

Sub zadacha2()
Dim x, y As Integer
x = InputBox("Год рождения первой девочки:")
y = InputBox("Год рождения второй девочки:")
If x < y Then MsgBox ("Первая старше")
If x > y Then MsgBox ("Вторая старше")
If x = y Then MsgBox ("Одногодки")
End Sub