Android Question Background color based in text

Public Function ToColorFromTitleCaseLetters(ByVal fullName As String) As Color
        If fullName.IsNullOrEmpty() Then
            Return Color.Blue
        End If

        Try
            Dim result As String = String.Concat(Regex.Matches(fullName, "[A-Z]").OfType(Of Match)().Select(Function(match) match.Value))

            Dim hash As Integer = 1
            If result.Length > 1 Then
                hash = (Convert.ToInt32(result.Chars(0)) - 64) * 100 + Convert.ToInt32(result.Chars(1)) - 64


                'https://stackoverflow.com/questions/14204827/ms-chart-for-net-predefined-palettes-color-list
                Dim colors() As String = { "008000", "0000FF", "800080", "800080", "FF00FF", "008080", "FFFF00", "808080", "00FFFF", "000080", "800000", "FF3939", "7F7F00", "C0C0C0", "FF6347", "FFE4B5", "33023", "B8860B", "C04000", "6B8E23", "CD853F", "C0C000", "228B22", "D2691E", "808000", "20B2AA", "F4A460", "00C000", "8FBC8B", "B22222", "843A05", "C00000" }

                Dim max As Integer = ((AscW("Z"c) - 64) * 100 + AscW("Z"c) - 64)

                Dim index As Decimal = (CDec(hash) / CDec(max)) * colors.Length
                Return Color.FromHex(colors(CInt(Math.Truncate(index))))
            End If
        Catch
        End Try

        Return Color.Blue
End Function

Sub Activity_Create(FirstTime As Boolean)
    For Each s As String In Array("aaa", "bbb", "ccc", "aad")
        LogColor(s, StringToColor(s))
    Next
End Sub


Private Sub StringToColor (s As String) As Int
    Return Bit.Or(0xff000000, CalcHash(s))
End Sub


Private Sub CalcHash (key As String) As Int
    'djb2 hash algorithm
    Dim h As Int = 5381
    For i = 0 To key.Length - 1
        h = Bit.ShiftLeft(h, 5) + h + Asc(key.CharAt(i))
    Next
    Return h
End Sub

'background color
    lvPueblo.Color=StringToColor(lvPueblo.Text)
'textcolor
        lvPueblo.TextColor=IdealTextColor(StringToColor(lvPueblo.Text))

Sub GetARGB(Color As Int) As Int()
    Dim res(4) As Int
    res(0) = Bit.UnsignedShiftRight(Bit.And(Color, 0xff000000), 24)
    res(1) = Bit.UnsignedShiftRight(Bit.And(Color, 0xff0000), 16)
    res(2) = Bit.UnsignedShiftRight(Bit.And(Color, 0xff00), 8)
    res(3) = Bit.And(Color, 0xff)
    Return res
End Sub
Sub  IdealTextColor(bg As Int) As Int
    Dim nThreshold As Int = 105
    Dim IntRGB As ARGBColor= GetARGB(bg)
    Dim bgDelta As Int = ((IntRGB.r * 0.299) + (IntRGB.g * 0.587) + (IntRGB.b * 0.114)) '->Crash here
Dim foreColor As Int
    If(255 - bgDelta < nThreshold) Then
        foreColor=Colors.black
        Else
        foreColor=Colors.white
    End If
    Return foreColor
End Sub

Sub  IdealTextColor(bg As Int) As Int
    Dim nThreshold As Int = 105
    Dim IntRGB() = GetARGB(bg)
    Dim bgDelta As Int = ((IntRGB(1) * 0.299) + (IntRGB(2) * 0.587) + (IntRGB(3) * 0.114)) '->Crash here
    Dim foreColor As Int
    If(255 - bgDelta < nThreshold) Then
        foreColor=Colors.black
        Else
        foreColor=Colors.white
    End If
    Return foreColor
End Sub