Hi,
Please check whether the following code helps:
Function CreateASlab(aX As Double, aY As Double, aZ As Double, bX As Double, bY As Double, bZ As Double, cX As Double, cY As Double, cZ As Double, dX As Double, _
dY As Double, dZ As Double, Thickness…