Sub StringToInt(Str As String) As Int
If Str.Length = 0 Or Str.Length > 8 Then
Return 0
End If
If Str.Length <> 8 Then
For i = Str.Length To 7
Str = "0" & Str
Next
End If
Dim converter As ByteConverter
Dim ii() As Int = converter.IntsFromBytes(converter.HexToBytes(Str))
Return ii(0)
End Sub