Sub ChooseColour(val As Double) As Double()
If val >= 75 And val < 85 Then
Return Array As Double(0,val,0) '<-- Only show the yellow bar
else if val >= 85 Then
Return Array As Double(0,0,val) '<-- Only show the red bar
Else
Return Array As Double(val,0,0) '<-- Only show the green bar
End If
End Sub