Private Function ConvertAsciiHexToByte _ (ByVal asciiHexToConvert As String) As Byte Dim convertedValue As Byte convertedValue = Convert.ToByte(asciiHexToConvert, 16) Return convertedValue End Function Private Function ConvertByteToAsciiHex _ (ByVal byteToConvert As Byte) As String Dim convertedValue As String convertedValue = Hex$(byteToConvert) Return convertedValue End Function Listing 6. These functions convert between byte values and ASCII Hex Strings that represent the bytes.