Public Sub registrarAreaEducativa()
        Dim boolResultado As Boolean

        Me.objAreaEducativaEN.Nombre = Me.TbxNombre.Text
        Me.objAreaEducativaEN.Descripcion = Me.TbxDescripcion.Text
        If (Me.TbxNombre.Text.Length >= 3) Then
            Me.objAreaEducativaEN.IdAreaEducativa = Me.TbxNombre.Text.Substring(0, 3).ToUpper + Me.gestorAreaEducativa.getMaxIdAreaEducativa().ToString
        End If
        'validando que no exista un Area Educativa con el mismo nombre
        If (Me.gestorAreaEducativa.existeAreaEducativa(objAreaEducativaEN)) Then
            MessageBox.Show("Ya existe un Área Educativa con el nombre " + "[" + objAreaEducativaEN.Nombre + "]", "Registrar Área Educativa", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            'mensaje de confirmacion
            Dim confirmacion As DialogResult = MessageBox.Show("Desea realmente registrar el Área Educativa " + "[" + objAreaEducativaEN.Nombre + "]", "Registrar Área Educativa", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If (confirmacion = Windows.Forms.DialogResult.Yes) Then
                boolResultado = gestorAreaEducativa.insertar(objAreaEducativaEN)
            End If
            If (boolResultado) Then
                MessageBox.Show("Se guardó exitosamente el Área Educativa " + "[" + objAreaEducativaEN.Nombre + "]" + " con el Código " + "[" + Me.gestorAreaEducativa.getIdAreaEducativa(objAreaEducativaEN) + "]", "Registrar Área Educativa", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Me.boolExito = True
                Me.Close()
            Else
                'en caso de que no sea exitosa la insercion se muestra un mensaje de error
                MessageBox.Show("No se pudo registrar el Área Educativa " + objAreaEducativaEN.Nombre, "Registrar Área Educativa", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End If
    End Sub