Определить максимальное и минимальное значения из их среднего арифметического, среднего геометрического и суммы экспонент - VB

Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double
Dim arf As Double
Dim gmr As Double
Dim ex As Double
a = -1
b = 0.7
c = -5
arf = (a + b + c) / 3
gmr = (a * b * c) ^ (1 / 3)
ex = Exp(a) + Exp(b) + Exp(c)
Dim max As Double
Dim min As Double
max = arf
min = arf
If arf > gmr And arf > ex Then max = arf
If gmr > arf And gmr > arf Then max = gmr
If ex > arf And ex > gmr Then max = ex
If arf < gmr And arf < ex Then min = arf
If gmr < arf And gmr < arf Then min = gmr
If ex < arf And ex < gmr Then min = ex
Print "Среднее арифм:" & arf
Print "Среднее геом:" & gmr
Print "Сумма экспонент:" & ex
Print "Макс:" & max
Print "Мин:" & min
End Sub