Sub StringToBytes(s As String)
Dim sb As StringBuilder
sb.Initialize
Dim bytes() As Byte = s.GetBytes("ascii")
For Each b As Byte In bytes
sb.Append("0x").Append(Bit.ToHexString(b)).Append(", ")
Next
sb.Remove(sb.Length - 2, sb.Length)
Log(sb.ToString)
End Sub