Доработка функции рассчета цвета

Function ColorCalc(Vl, Min, Max, ClMin, ClMax)
    Dim ClRez(3), i
    ClMin = GETRGB(ClMin)
    ClMax = GETRGB(ClMax)
    For i = 0 To 3
      ClRez(i) = ClMin(i) + (ClMax(i) - ClMin(i)) * (Vl - Min) / (Max - Min)
    Next
    Gradient = RGB(ClRez(0), ClRez(1), ClRez(2))
End Function
'возвращает массив с значениями для 3х цветов (RGB)
Function GETRGB(cl) As Long()
  Dim ar(3) As Long
  ar(2) = Int(cl / 65536)
  cl = cl - ar(2) * 65536
  ar(1) = Int(cl / 256)
  ar(0) = cl - ar(1) * 256
  GETRGB = ar  
End Function

Pi = WorksheetFunction.Pi
Ang = 2 * Pi * (Vl - Min) / (Max - Min)
t = 1 + (t - 1) * (Cos(Ang) * -0.5 + 0.5)

Sub ColorCalc()
  Dim H1, H2, H3, S1, S2, S3, L1, L2, L3, Min, Max, Vl, N, CosA, CosB, CosY, AB, BC
  Static pi As Double
  If pi = 0 Then pi = WorksheetFunction.pi
  
  Min = 30: Max = 90: Vl = 60 'Vl = 65
'  H1 = 240: S1 = 50:  L1 = 50
'  H2 = 0:   S2 = 70:  L2 = 50
  H1 = 0: S1 = 100:  L1 = 50
  H2 = 120:   S2 = 100:  L2 = 50
  
  CosA = Cos((H2 - H1) * pi / 180)
  N = (Max - Vl) / (Max - Min)
  AB = (S1 ^ 2 + S2 ^ 2 - 2 * S1 * S2 * CosA) ^ 0.5
  CosB = (AB ^ 2 + S2 ^ 2 - S1 ^ 2) / (2 * AB * S2)
  BC = AB * N
  S3 = (BC ^ 2 + S2 ^ 2 - 2 * BC * S2 * CosB) ^ 0.5
  CosY = (S2 ^ 2 + S3 ^ 2 - BC ^ 2) / (2 * S2 * S3)
  H3 = H2 - Acos(CosY) * 180 / pi
  L3 = L1 + (L2 - L1) * (1 - N)
  
  With ActiveCell
      .Value = H3
      .Offset(, 1) = S3
      .Offset(, 2) = L3
  End With
End Sub

Function Acos(ByVal a As Double) As Double
    Static pi As Double
    If pi = 0 Then pi = WorksheetFunction.pi
    If a = 1 Then
      Acos = 0
    ElseIf a = -1 Then
      Acos = pi
    Else
      Acos = Atn(-a / Sqr(-a * a + 1)) + 2 * Atn(1)
    End If
End Function