В магазине продаётся сыр стоимостью 45 рублей/кг и икра стоимостью 70 рублей за 100 гамм. Написать программу, рассчитывающую стоимость покупки. Количество каждого товара ввести с клавиатуры.В Visual basic

Sub Z()                      'начало программы с именем Z
Dim a As Integer        'создаем ячейку с именем а для целых чисел
Dim b As Integer        'создаем ячейку с именем b для целых чисел
Dim c As Integer        'создаем ячейку с именем c для целых чисел
a = InputBox("Введите A: ")  
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку а
If a Mod 2 = 1 Then a = a - 1
'Если остаток от деления на 2 равен 1, то число а уменьшаем на единицу
b = InputBox("Введите B: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку b
If b Mod 2 = 1 Then b = b - 1
'Если остаток от деления на 2 равен 1, то число b уменьшаем на единицу
c = InputBox("Введите C: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку c
If c Mod 2 = 1 Then c = c - 1
'Если остаток от деления на 2 равен 1, то число c уменьшаем на единицу
MsgBox ("A=" & a & "; B=" & b & "; C=" & c)
'Выводим на экран текст A=. затем число из ячейки а, затем печатаем знаки ; B=, потом число из ячейки b, затем знаки ; C= и число из ячейки с
End Sub  'конец программы 

Var  a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if b<min then min:=b;
write('Введите c: ');
readln(c);
if c<min then min:=c;
writeln('Наименьшее: ',min);
end.

Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer
a = InputBox("Введите A: ")
min = a
b = InputBox("Введите B: ")
If b < min Then min = b
c = InputBox("Введите C: ")
If c < min Then min = c
MsgBox ("Наименьшее: " & min)
End Sub

Для наибольшего
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = InputBox("Введите A: ")
max= a
b = InputBox("Введите B: ")
If b > max Then max = b
c = InputBox("Введите C: ")
If c > max Then max = c
MsgBox ("Наибольшее: " & max )
End Sub