Dear boyq
This is OpenSTAAD code in Excel for taking output results
Option Explicit
Sub Main()
'Description:Intermediate Forces
Dim objOpenSTAAD As Object
Dim BeamNo As Long
Dim Dist As Double
Dim LC As Long
Dim Force(0 To 5) As Double
Dim x As Integer
Set objOpenSTAAD = GetObject(...