Medir el tiempo de ejecución es fácil:
Código:
tiempoinicio = Timer
For i = 1 To 800000
el CASE con un método que genere números aleatorios donde salgan con más frecuencia los primeros y colocándolos al final del CASE (y luego cambiar esto)
Next
tiempototal = FormatNumber(Timer - tiempoinicio, 3, True)
Response.Write "Tiempo total: " & tiempototal & "<br>"
Pero no creo que sea algo en lo que tenga que perder tiempo -en optimizar un CASE- cuando puedo realmente optimizar en las BD's, creaciones de objetos Commands, etc, etc.