         If Not (pbParseByteArray()) Then
                MsgBox "Could not interpret your entry as a binary entry." &amp;
                 vbCrLf &amp; vbCrLf &amp; "Please enter the value as 2 digit
                 hexadecimal values separated by spaces.", vbInformation
                txtValue.SetFocus
                Exit Sub
            End If
        End If
    End If
    m_sName = Trim$(txtName)
    If (Len(m_sName) &lt; 1) Then
        MsgBox "Please enter a name.", vbInformation
        txtName.Se