Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Console.WriteLine(ColorDWB(100,100,10,"AAAAAA"))

    End Sub

     Public Function ColorDWB(ByVal Value As Decimal, ByVal MaxPositive As Decimal, ByVal Neutral As Decimal, ByVal ColStr As String) As String

        Dim ColVar1 As Integer

        Dim ColVar2 As Integer

        Dim ColVar3 As Integer

        'Split the #RGB color to R, G, and B components 

        ColVar1 = Convert.ToInt32(left(right(ColStr, 6), 2), 16)

        ColVar2 = Convert.ToInt32(left(right(ColStr, 4), 2), 16)

        ColVar3 = Convert.ToInt32(right(ColStr, 2), 16)

        'Find Largest Range 

        Dim decPosRange As Decimal = Math.Abs(MaxPositive - Neutral)

        'Find appropriate color shade 

        Dim Shd As Decimal = 255

        Dim iColor1 As Integer

        Dim iColor2 As Integer

        Dim iColor3 As Integer

        Dim strColor As String

        'Reduce a shade for each of the R,G,B components 

        iColor1 = ColVar1 + CInt(Math.Round((MaxPositive - Value) * ((Shd - ColVar1) / decPosRange)))

        iColor2 = ColVar2 + CInt(Math.Round((MaxPositive - Value) * ((Shd - ColVar2) / decPosRange)))

        iColor3 = ColVar3 + CInt(Math.Round((MaxPositive - Value) * ((Shd - ColVar3) / decPosRange)))

        'Return the new color 

        strColor = "#" & iColor1.ToString("X2") & iColor2.ToString("X2") & iColor3.ToString("X2")

        Return strColor

    End Function

End Module