You can do it using AutoIt (free). If you create the AutoItX object within your program you can get the value in the calculator by
calc = "Calculator"
If aut.WinExists(calc) Then
result = aut.WinGetText(calc)
Else
MsgBox(calc & " window not found")
End If