Дано три числа. Найти сумму двух наибольших из них - VB

sub main
a=1 'cdbl(inputbox("a="))
b=2
c  
if a<=b and a<=c then
  msgbox b+c
elseif b<=c and b<=a then
  msgbox a+c
else
  msgbox b+a
endif
end sub