Android Question [Solved] How can I convert this string (number) to int??

Dim strCC As String="0x416"
Dim intCC As Int = Bit.ParseInt(strCC.Replace("0x",""), 16)
Log(intCC)
Label1.Text=Chr(intCC)

Dim vendor As Int = 0x416
 Label1.Text=Chr(vendor)

#if java
import java.util.Scanner;

public static int hex2decimal(String s)
    {
             String digits = "0123456789ABCDEF";
            
             int val = 0;
             for (int i = 0; i < s.length(); i++)
             {
                 char c = s.charAt(i);
                 int d = digits.indexOf(c);
                 val = 16*val + d;
             }
             return val;
    }
#End If

'Something like this, NOT TESTED
    Dim BC As ByteConverter
    Log($"Value ${BC.IntsFromBytes(BC.HexToBytes("0x416".Replace("0x", "00000")))(0)}"$)

java.lang.Exception: hex string has odd number of characters

Waiting for debugger to connect...
Program started.
Value 20497
Value 1046
Picked up _JAVA_OPTIONS: -Xmx512m -Xms512m

Dim strCC As String="0x416"

Sub Hexa2Decimal (sNumber As String) As Int
'    Dim BC As ByteConverter
'    'Log($"Value ${BC.IntsFromBytes(BC.HexToBytes(sNumber.Replace("0x", "00000")))(0)}"$)    ' 1046
'    Return BC.IntsFromBytes(BC.HexToBytes(sNumber.Replace("0x", "00000")))(0)
    Dim i, k As Int = 0
    Dim iSuma As Int = 0
    Dim sCar As String
    Dim iBase As Int = 1
 
    If sNumber.Contains("h") Then
        sNumber = sNumber.SubString2(0,sNumber.Length-1)
    End If
    If sNumber.Contains("0x") Then
        sNumber = sNumber.SubString(3)
    End If
 
    For i = sNumber.Length -1 To 0 Step -1
        sCar = sNumber.CharAt(i)
        Select sCar
            Case "A", "a"
                sCar = "10"
            Case "B", "b"
                sCar = "11"
            Case "C", "c"
                sCar = "12"
            Case "D", "d"
                sCar = "13"
            Case "E", "e"
                sCar = "14"
            Case "F", "f"
                sCar = "15"
        End Select
        'If k = 0 Then iBase = 1
        If k = 1 Then iBase = 16
        If k = 2 Then iBase = 256
        If k = 3 Then iBase = 4096
        If k = 4 Then iBase = 65536
        If k = 5 Then iBase = 1048576
        iSuma = iSuma + (sCar * iBase)
        k = k + 1
    Next
    Return iSuma
End Sub

    Dim HexValue As String= "0x416"   ' or whatever HEX value you need.
    Log("Value " & Hex2Decimal(HexValue.Replace("0x", "")))

Sub Hex2Decimal(s As String) As Int
    Dim Digits As String = "0123456789ABCDEF"
    Dim Val = 0, I As Int = 0
 
    Do While I < s.length()
        Dim C As Char = s.charAt(I)
        Dim D As Int = Digits.indexOf(c)
        Val = 16 * Val + D
        I = I + 1
    Loop
    Return Val
End Sub

...

Select sCar.ToLowerCase

       Case "a"
...