 schar2) &lt;&gt; 0 Then
                lBytes = lBytes + 1
                ReDim Preserve bOut(0 To lBytes - 1) As Byte
                bOut(lBytes - 1) = UnHexByte(sChar1 &amp; schar2)
            Else
                txtValue.SelStart = i + 2
                txtValue.SelLength = 1
                pbParseByteArray = False
                Exit Function
            End If
        Else
            txtValue.SelStart = i
            txtValue.SelLength = 1
            pbParseByteArray = False
            Exit 