Android Question Hex color for HTML output

Private Sub getARGBColor(intColor As Int) As Int() ' Courtesy of B4A administrator Erel
    ' Extract each component part of the colour integer value
    Dim intColors(4) As Int
    intColors(0) = Bit.UnsignedShiftRight(Bit.And(intColor, 0xff000000), 24)
    intColors(1) = Bit.UnsignedShiftRight(Bit.And(intColor, 0xff0000), 16)
    intColors(2) = Bit.UnsignedShiftRight(Bit.And(intColor, 0xff00), 8)
    intColors(3) = Bit.And(intColor, 0xff)
    Return intColors

'Get or set hex color value of currently selected pallet
Public Sub getSelectedColorHex() As String
    Dim strHex As String
    strHex = Bit.ToHexString(intARGB(0))
    strHex = strHex & Bit.ToHexString(intARGB(1))
    strHex = strHex & Bit.ToHexString(intARGB(2))
    strHex = strHex & Bit.ToHexString(intARGB(3))
    Return strHex
End Sub

Public Sub setSelectedColorHex(HexColor As String)
    If HexColor.Length = 10 Or HexColor.Length = 8  Then
        If HexColor.Length = 10 Then HexColor = HexColor.SubString(2)
        intARGB(0) = 255 ' Alpha not supported in this version, forced to fully opaque (255)
        intARGB(1) = Bit.ParseInt(HexColor.SubString2(2,4), 16)
        intARGB(2) = Bit.ParseInt(HexColor.SubString2(4,6), 16)
        intARGB(3) = Bit.ParseInt(HexColor.SubString2(6,8), 16)
        setActivePalletColor(Colors.ARGB(intARGB(0), intARGB(1), intARGB(2), intARGB(3)))
    End If
End Sub

hexcolor = "#" & Bit.ToHexString(Bit.And(0xFFFFFF, intcolor))