Create Suma de dígitos (pares, impares, y todos).vb