In this case is code very similar.

Option Explicit
Public Sub surfaceCreate()

Dim drw As Drawing
Set drw = App.ActiveDrawing


Dim SurPoly_1 As PolyLine
Dim geo_sur1 As Path
Set SurPoly_1 = drw.Create3DPolyline(0, 0, 0)
SurPoly_1.AddLine 100, 0, 40
Set geo_sur1 = SurPoly_1.Finish

Dim SurPoly_2 As PolyLine
Dim geo_sur2 As Path
Set SurPoly_2 = drw.Create3DPolyline(0, 200, 0)
SurPoly_2.AddLine 100, 200, 40
Set geo_sur2 = SurPoly_2.Finish


Dim tolerance As Double
tolerance = 0.1

drw.CreateSurfaceRuled geo_sur1, geo_sur2, tolerance
End Sub

https://drive.google.com/file/d/11CJ...usp=share_link