Sub Bridge_To_MathCad()
    
    Dim outA, outB As Variant
    Dim inX, inY, inZ As Variant
    Dim Value1, Value2 As Variant
    
    'Read in values to be passed from Excel to Mathcad
    inX = ActiveSheet.Range("A1").Value
    inY = ActiveSheet.Range("B1").Value
    inZ = ActiveSheet.Range("c1").Value
    
    'Get a hold of the mathcad object
    Dim MathcadObject As OLEObject
    Set MathcadObject = ActiveSheet.OLEObjects(1)
    MathcadObject.Activate
    
    'Get a hold of the mathcad worksheet
    Set Ws = MathcadObject.Object.Worksheet
    
    'hand the values over to Mathcad, assign them to varables
    'recalculate, and read the results into excal
    Ws.setValue "x", inX
    Ws.setValue "y", inY
    Ws.setValue "z", inZ
    Ws.Recalculate
    
    'Place the result values into the chosen Excel cells
    ActiveSheet.Range("A2").Value = Ws.getvalue("output1")
    ActiveSheet.Range("B2").Value = Ws.getvalue("output2")
    
    'Return to Excel sheet
    ActiveSheet.Select
End Sub