Function GetC(D, BW, TW, SideLength)

    varareal = D
    varbreal = BW
    varcreal = TW
    vardreal = SideLength

 
    varaimag = 0
    varbimag = 0
    varcimag = 0
    vardimag = 0
    flowimag = 0
    
  
    ' Get a reference to SmartSketch
    Set objSmartSketch = GetObject(, "SmartSketch.Application")

    ' Get a reference to the Mathcad object
    Set objmathcad = objSmartSketch.ActiveDocument.ActiveSheet.SmartFrames2d(1).object
   
    Call objmathcad.SetComplex("in0", varareal, 0)
    Call objmathcad.SetComplex("in1", varbreal, 0)
    Call objmathcad.SetComplex("in2", varcreal, 0)
    Call objmathcad.SetComplex("in3", vardreal, 0)
    Call objmathcad.Recalculate
    Call objmathcad.GetComplex("out0", flowreal, flowimag)

    GetC = flowreal

End Function