Create 08 mientras - encontrar mayor y menor.vb