Sub invertHex(hexnum As String) As Int
If hexnum.Length <> 6 Then
ToastMessageShow("Hex color must be six hex numbers in length.", False)
Return
End If
hexnum = hexnum.ToUpperCase
Dim splitnum(6) As String
For i = 0 To 5
splitnum(i) = hexnum.CharAt(i)
Next
Dim resultnum As String = ""
Dim simplestring As String = "FEDCBA9876"
Dim simplenum(10) As String
For i = 0 To 9
splitnum(i) = simplestring.CharAt(i)
Next
Dim complexnum As Map
complexnum.Put(0, 5)
complexnum.Put(1, 4)
complexnum.Put(2, 3)
complexnum.Put(3, 2)
complexnum.Put(4, 1)
complexnum.Put(5, 0)
For i = 0 To <6 Step 1
If IsNumber(splitnum(i)) Then ' !isNaN = Not(is Not A Number) double negative!!!
resultnum = resultnum + splitnum(i)
Else If complexnum.ContainsKey(splitnum(i)) Then
resultnum = resultnum + complexnum.Get(splitnum(i))
Else
ToastMessageShow("Hex colors must only include hex numbers 0-9, and A-F", False)
End If
Return
Next
Return resultnum
End Sub