Android Question Convert Hex to Dec Problem

Dim lng As Long = 0xFB461E4D
Log(lng)

    Dim Str As String="FB461E4D"
    Dim lng As Long= StringToLong(Str)
    Log(lng)

Sub StringToLong(Str As String) As Long
    Str= "0000000000000000" & Str
    Str=Str.SubString(Str.Length-16)
    Dim converter As ByteConverter
    Dim a() As Byte=converter.HexToBytes(Str)
    Dim lng() As Long =converter.LongsFromBytes(a)
    Return lng(0)
End Sub

Sub AppStart (Args() As String)
    Dim i As Int = 0xFB461E4D
    Log(i)
    Log(StringToInt("FB461E4D"))
    'unsigned value:
    Log(StringToUnsignedInt("FB461E4D"))
End Sub

Sub StringToInt(Str As String) As Int
    Dim converter As ByteConverter
    Dim ii() As Int = converter.IntsFromBytes(converter.HexToBytes(Str))
    Return ii(0)
End Sub

Sub StringToUnsignedInt (Str As String) As Long
    Dim converter As ByteConverter
    Dim a(8) As Byte
    Dim i() As Byte = converter.HexToBytes(Str)
    Bit.ArrayCopy(i, 0, a, 4, 4)
    Dim ll() As Long = converter.LongsFromBytes(a)
    Return ll(0)
End Sub