If your pathnames contain spaces, it's hard to get rid of them.
Begin with removing all spaces in pathnames.
After that this will suffice

Shell replace("cmd /c ~\Fourier.exe","~",Thisworkbook.path), 0