Visual Basic - Rango de montos... Ayuda por favor

Hola, como estan, les cuento mi drama, necesito buscar entre un rango de montos , y asignar un codigo si esta dentro del rango, la fiuncion que no me funciona es el siguiente:

Function Impuesto2da(Monto As String) As String
If Format(Monto, "##,##0.00") >= 0 And Format(Monto, "##,##0.00") <= Format(401490, "##,##0.00") Then Impuesto2da = "M1"
If Format(Monto, "##,##0.00") >= Format(401490, "##,##0.01") And Format(Monto, "##,##0.00") <= Format(892200, "##,##0.00") Then Impuesto2da = "M2"
If Format(Monto, "##,##0.00") >= Format(892200, "##,##0.01") And Format(Monto, "##,##0.00") <= Format(1487000, "##,##0.00") Then Impuesto2da = "M3"
...etc
If Format(Monto, "##,##0.00") > Format(4461000, "##,##0.01") Then Impuesto2da = "M8": Exit Function
End Function

el problema es que tiene que ser con decimales, 2 al menos.
Gracias por la ayuda.

Manuel