Dim sb As New StringBuilder()
        'bytes = Byte.Parse(RichTextBox1.Text, 
        ' Globalization.NumberStyles.HexNumber)
        bytes = System.Text.Encoding.UTF8.GetBytes(RichTextBox1.Text)
 
        For Each b As System.Byte In bytes
            '  sb.Append(String.Format("{0:X2}", Hex(b)))
            sb.Append(String.Format(Byte.Parse(b, _
              Globalization.NumberStyles.HexNumber)))
        Next