anche così ti da lo stesso problema?
HcpExactEga = CSng(replace(HcpExactEga,",","."))