tFocus
        Exit Sub
    End If
    If Not (optValueType(2).Value) Then
        m_svalue = txtValue
    End If
    m_iType = optType(1).Value * -1
    m_iValueType = -1
    For i = 0 To 2
        If (optValueType(i).Value) Then
            m_iValueType = i
            Exit For
        End If
    Next i
    If (m_iValueType = -1) Then
        MsgBox "Please enter a value type.", vbExclamation
    End If
    
    m_bCancel = False
    Unload Me
End Sub
Private Function UnHexByte(ByVal sHex As String) As By