Android Question String of text to ASCII HEX string?

Dim b() As Byte = "Hello".GetBytes("UTF8")
Dim ints(b.Length) As Int
For j =0 To b.Length-1
    ints(j) = b(j)
    Log(ints(j))
Next

Sub decimalToHex(dec As Int) As String
    Dim hexString As String
    Dim again As Boolean = True
    Do While again
        Dim hexdigit As Int = dec mod 16
        hexString = singleDigitToHex(hexdigit) & hexString
        dec = (dec-hexdigit)/16
        If dec<1 Then again = False
    Loop
    Return hexString
End Sub

Sub singleDigitToHex(dig As Int) As String
    If dig<10 Then Return dig
    If dig==10 Then Return "A"
    If dig==11 Then Return "B"
    If dig==12 Then Return "C"
    If dig==13 Then Return "D"
    If dig==14 Then Return "E"
    If dig==15 Then Return "F"
End Sub

Sub TextToHexString(data As String) As String
Dim b() As Byte = data.GetBytes("UTF8")
Dim I As Int
Dim Str As String
Str = ""
For I=0 To b.Length-1
    Str = Str & Convert.HexFromBytes(b(I))
Next
Return Str
End Sub

Log(Convert.HexFromBytes("123".GetBytes("UTF8")))