te
Dim iChar1 As Byte
Dim ichar2 As Byte
    iChar1 = Asc(Left$(sHex, 1))
    ichar2 = Asc(Mid$(sHex, 2, 1))
    UnHexByte = UnHex4BitsASCII(iChar1) * &amp;H10 + UnHex4BitsASCII(ichar2)
End Function
Private Function UnHex4BitsASCII(ByVal iASCII As Byte) As Byte
    If (iASCII &gt; Asc("A")) Then
        UnHex4BitsASCII = iASCII - Asc("A") + 10
    Else
        UnHex4BitsASCII = iASCII - Asc("0")
    End If
End Function

Private Function pbParseByteArray()
Dim sBytes As String
Dim bOut() As Byte
Dim sChar1 A