Can someone help me with a Macro to convert Decimal to Human readable date format please?

Eg: 1400158027078650000 should be converted to GMT: Thu, 15 May 2014 12:47:07 GMT


I tried using this cell reference formula but it doesnt seem to work (A1/86400)+25569+(-5/24)

Any other ideas please?