Согласен. Если рассматривать всю числовую ось, то переменную Max требуется инициализировать минимально возможным отрицательным числом типа Double, т.е. -1,79769313486231570E+308
Ctrl-Break.
Ну или например писать расширенный синтаксис оператора msgbox вида vbYesNo с вводной фразой и обработкой нажатия "No".
