Hola, saludos y gracias por los comentarios.
Es cierto, sobra un Case "Agregar" y el & order al agregar tambien esta de mas.
Voy a optimizar y completar mas la funcion para que incluya mas funciones y sea menos engorroso el pasaje de parametros.
Hasta pronto