How to get Microsoft Calculator result to cell?

Is there any solution to get the result of default calculator to Excel cell by VBA? I've tried to open the calculator:

Application.ActivateMicrosoftApp Index:=0