VBA byref argument de l'incompatibilité de type lors de l'appel d'une fonction à partir d'une fonction appelée

espère que quelqu'un peut vous aider. C'est une simplification d'un ensemble de code, je travaille avec. Je suis l'appel d'une fonction, et que les appels de fonction à une autre fonction. Les variables sont transmises à partir de l'appel de sous à la première fonction appelée, à partir de là où il devrait être transmise à la 2ème fonction appelée pour renvoyer une valeur. Cependant, je suis un "argument byref erreur" incompatibilité de type sur le dessous de "Paramètre" dans la première fonction. Toutes les suggestions? Merci!

' Sub to call function 1
Sub TestFunctionSelect()
    Dim X As Double
    ' X should = the value of the function mShareMMTDaily as called from mFunctionSelect
    X = mFunctionSelect("mShareMMTDaily", "SOL", "2008/02/28", 12)
End Sub

' Function 1 to call function 2 and return a value to the sub
Function mFunctionSelect(FunctionName As String, CompCode As String, CurrentMonth As Date, Parameter As Double) As Double
    Select Case FunctionName
        ' Case Is = "mValue"
            ' mFunctionSelect = mValue(CompCode, CurrentMonth, Parameter)
        Case Is = "mShareMMTDaily"
            ' This function is called
            ' I get the "byref argument type mismatch" error on the below "Parameter"
            mFunctionSelect = mShareMMTDaily(CompCode, CurrentMonth, Parameter)
    End Select
End Function

Function mShareMMTDaily(Code As String, ShareDate As Date, LookBack As Integer) As Double
    ' Do Stuff
End Function