Conseguir resultado numérico en una función

Hola experto:
Me gustaría tu ayuda en relación con este tema
Estoy utilizando las funciones de un modulo en una consulta para calcular la cuota total de un recibo con DOS DECIMALES y que es la suma de dos componentes: cuota_minimo + cuota_exceso
El modulo es el siguiente :
Option Compare Database
Option Explicit
Public Const m3min1 As Double = 250
Public Const m3min2 As Double = 500
Public Const cuotamin1 As Double = 36
Public Const cuotamin2 As Double = 90
Public Const prmin1 As Double = 0.3
Public Const prmin2 As Double = 0.45
---------------------------------------------
Function cuotamin(m3c As Double)
Dim cuotaminv as Double
    If m3c > m3min2 Then
      cuotaminv = cuotamin2
    Else
      cuotaminv = cuotamin1
    End If
cuotamin = Format(cuotaminv, "##0.00")
End Function
--------------------------------------------
Function cuotaexc(m3c As Double)
Dim CUOTAEXCV As Double
If m3c > m3min2 Then
   CUOTAEXCV = (m3c - m3min2) * prmin2
     Else
   If m3c > m3min1 Then
    CUOTAEXCV = (m3c - m3min1) * prmin1
     Else
    CUOTAEXCV = 0
   End If
End If
cuotaexc = Format(cuotaexcv, "##,##0.00")
End Function
____________________________________________
En la consulta y en modo diseño tengo :
cuota_minimo : cuotamin([m3c]
cuota_exceso : cuotaexc([m3c])
cuota_total : [cuota_minimo] + [cuota_exceso]
Ya que el resultado que obtengo del modulo para cuota_min y cuota_exceso son en formato texto, el resultado final que me da para la cuota_total, como es de esperar, es la concatenación de [cuota_minimo] y [cuota_exceso].
Probé con varias opciones de formateo ( CCur, Format, Cdbl, ... ) tanto en el modulo como en la consulta y no consigo dar con el resultado deseado que me permita obtener la Cuota_Total ( valor con 2 decimales ).
Gracias anticipadas.