The Padlock demo code, modified for calculation with cell values:
14 Function ten(x As Range)
15 ten = x +10
16 End Function
it leads to a correct result, but also there comes the error message:
RUNTIME ERROR
Could not convert variant of type (UnicodeString) into type (Double) when evaluating...