s String
Dim schar2 As String
Dim i As Long
Dim lBytes As Long

    sBytes = UCase$(txtValue)
    For i = 1 To Len(sBytes) Step 3
        If (Mid$(sBytes, i + 2, 1) &lt;&gt; " ") Then
            txtValue.SelStart = i + 2
            txtValue.SelLength = 1
            pbParseByteArray = False
            Exit Function
        End If
        sChar1 = Mid$(sBytes, i, 1)
        schar2 = Mid$(sBytes, i + 1, 1)
        If InStr("ABCDEF0123456789", sChar1) &lt;&gt; 0 Then
            If InStr("ABCDEF0123456789",