Funcion en Visual

Tengo esta formula :

SI(F9="","",SI(F9<.49,"C",SI(F9<.49,"B",SI(F9<.49,"A",SI(F9< ,"AD")))))

Sobre estas condiciones:
AD (logro destacado) = 20 a 17 A (logro) = 16 a 13
B (en proceso) = 12 a 11 C (con difilcutad o en inicio) = 10
a
0

A partir de ella hice esta funcion para hacer mas rapido el trabajo ya q
tengo q copiarla a muchas hojas del libro :

Function EVAL(x)
If x = 0 Then EVAL = ""
If x = 1 Or x = 10.49 Then EVAL = "C"
If x = 10.5 Or x = 12.49 Then EVAL = "B"
If x = 12.5 Or x = 16.49 Then EVAL = "A"
If x = 16.5 Or x = 20 Then EVAL = "AD"
End Function

Pero no funciona bien me podrian ayudar a corregirla gracias por su ayuda


Saludos Cordiales
Daniel Padilla Cañamero
Lima-Perú