El "Case Else" de la función, intenta devolver un texto cuando la función  está definida como Double (por lo tanto da error). Se podría poner (como valor de retorno de la función) "As Variant"?