Function Test(t1 As Char()) As Integer
 
        Dim e As String = ""
 
        For i = 1 To Len(t1)
            e = e & Convert.ToInt32(GetChar(t1, i)).ToString("X2")
        Next
 
        Return Convert.ToInt32(e)
 
    End Function