Type mismatch error when using a function inside a sub

Question

I\'ve made a simple function which reads a string from an Excel cell and converts it into a formula:

Function f(x As Double) As Double
Dim q As String
q = Cel