помогите с простой задачкой на коде на VBA. НЕ ПАСКАЛЬ!

Sub minmax()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("Первое число:")
b = InputBox("Второе число:")
c = InputBox("Третье число:")
Min = a
Max = a
If b > Max Then Max = b
If b < Min Then Min = b
If c > Max Then Max = c
If c < Min Then Min = c
MsgBox Min
MsgBox Max
End Sub

79 194 642
menwee = 79, bolwee = 642
================
205 246 752
menwee = 205, bolwee = 752
================
784 841 785
menwee = 784, bolwee = 841
================
58 506 388
menwee = 58, bolwee = 506
================
31 230 602
menwee = 31, bolwee = 602
================
442 577 383
menwee = 383, bolwee = 577
================
457 553 203
menwee = 203, bolwee = 553
================
321 685 706
menwee = 321, bolwee = 706
================
818 267 46
menwee = 46, bolwee = 818
================
451 284 813
menwee = 284, bolwee = 813
================
401 646 905
menwee = 401, bolwee = 905
================
620 646 993
menwee = 620, bolwee = 993
================
935 318 435
menwee = 318, bolwee = 935
================
55 412 359
menwee = 55, bolwee = 412
================
176 748 65
menwee = 65, bolwee = 748
================
14 32 882
menwee = 14, bolwee = 882
================
368 472 366
menwee = 366, bolwee = 472
================
241 48 619
menwee = 48, bolwee = 619
================
267 952 768
menwee = 267, bolwee = 952
================
822 945 883
menwee = 822, bolwee = 945
================
541 192 240
menwee = 192, bolwee = 541
================
635 438 478
menwee = 438, bolwee = 635
================
770 692 556
menwee = 556, bolwee = 770
================
350 530 372
menwee = 350, bolwee = 530
================
341 143 85
menwee = 85, bolwee = 341
================
126 245 967
menwee = 126, bolwee = 967
================
494 99 345
menwee = 99, bolwee = 494
================
928 810 232
menwee = 232, bolwee = 928
================