Заданные положительные числа А, В, С. свести наибольшее из них в степень, показатель которого равен наименьшему числу. - VB

Private Sub Form_Load()
    Dim A As Double, B As Double, C As Double, R As Double
    A = Int(Rnd * 10)
    B = Int(Rnd * 10)
    C = Int(Rnd * 10)
    R = (IIf(A > B, IIf(A > C, A, C), IIf(B > C, B, C))) ^ _
        IIf(A < B, IIf(A < C, A, C), IIf(B < C, B, C))
End Sub