Imports System.IO Imports System.Text Imports System.Security.Cryptography Public Class Form1 Shared Function HexStringToBytes1(ByVal hexString As String) As Byte() Dim result As New List(Of Byte)() For i As Integer = 0 To hexString.Length - 1 Step 3 result.Add(Convert.ToByte(hexString.Substring(i, 2), 16)) Next Return result.ToArray() End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click RichTextBox1.Text = HexStringToBytes(TextBox1.Text) End Sub End Class
TEXTBOX1.TEXT = "A1-B2-C3-D4-E5"
Inside the textbox1.text ="01-23-45-67-89"
<div class="pre-action-link" id="premain99971"><span id="copycode99971" onclick="return ProcessCodeBlocks.copyCode(99971);">Copy Code</span></div>&H01, &H23, &H45, &H67, &H89
Private Sub Button1_Click( 'RichTextBox1.Text = HexStringToBytes(TextBox1.Text) End Sub