Parameter formatting in VBA prompting a 'Type mismatch' error at runtime?

Question

I\'m adapting some inherited MS Access VBA code (below) so I realise there are better ways to manage this but, that said, what I\'ve done should do the job. I can can see that