Dim mathcad, worksheets, sheet

Set mathcad = CreateObject("Mathcad.Application")
set worksheets = mathcad.Worksheets
Set sheet = worksheets.Open("C:\vbscript\testM12.xmcd")

sheet.setValue "x",50
sheet.setValue "y",60
sheet.setValue "z",70

sheet.Recalculate

MsgBox(sheet.getValue("output1"))
MsgBox(sheet.getValue("output2"))