Calculo para obtener calificación

Hola
expertos, solicito su ayuda para encontrar el siguiente resultado:
Tengo
una consulta con los campos IdNewClave del 1 al 20 y monto entre otros, deseo
que cuando sea 1 se divida entre si mismo y multiplique por 50, cuando sea 2 se
divida entre el primer monto y el siguiente mayor y así sucesivamente. Ejemplo:

50 por (100/100) = 50.00
50 por (100/115) = 43.48
50 por (100/120) = 41.67
50 por (100/130) = 38.46
50 por (100/140) = 35.71

Mis conocimientos de Access son súper básicos, hice la siguiente función, pero me
da el mismo resultado en todos, y me gustaría que lo diera como el ejemplo anterior.

Function PuntosEco(NewClave As Byte, Monto As Double) As Double
Dim LaNueClave As Byte ‘del 1 al 20
Dim elMonto As Double ‘son cantidades diferentes

LaNueClave = NewClave
elMonto = Monto
Select Case LaNueClave
Case Is = 1
PuntosEco = 50 * (elMonto / elMonto)
Case 2
PuntosEco = 50 * (elMonto / elMonto)
Case Else
PuntosEco = 0
End Select

Esta instrucción me da el mismo resultado.

Les agradeceré infinitamente su ayuda.

Saludos desde México

Raúl Ortiz