Public Sub Example()
       ' Definición de las variables
       Dim SapModel As cSapModel
       Dim EtabsObject As cOAPI
       Dim ret As Integer
       Dim NumberResults As Long
       Dim LoadCase() As String
       Dim StepType() As String
       Dim StepNum() As Double
       Dim Fx() As Double
       Dim Fy() As Double
       Dim Fz() As Double
       Dim Mx() As Double
       Dim My() As Double
       Dim Mz() As Double
       Dim gx As Double
       Dim gy As Double
       Dim gz As Double
       Dim XCentroidForFx() As Double
       Dim YCentroidForFx() As Double
       Dim ZCentroidForFx() As Double
       Dim XCentroidForFy() As Double
       Dim YCentroidForFy() As Double
       Dim ZCentroidForFy() As Double
       Dim XCentroidForFz() As Double
       Dim YCentroidForFz() As Double
       Dim ZCentroidForFz() As Double

   ' Crear objeto ETABS
       Set EtabsObject = CreateObject("CSI.ETABS.API.ETABSObject")

   ' Iniciar aplicación ETABS
       ret = EtabsObject.ApplicationStart()

   ' Crear objeto SapModel
       Set SapModel = EtabsObject.SapModel

   ' Inicializar modelo
       ret = SapModel.InitializeNewModel()

   ' Crear modelo de plantilla de cubierta de acero
       ret = SapModel.File.NewSteelDeck(4, 12, 12, 4, 4, 24, 24)

   ' Ejecutar análisis
       MkDir "c:\CSI_API_temp"
       ret = SapModel.File.Save("C:\CSI_API_temp\example.edb")
       ret = SapModel.Analyze.RunAnalysis()

   ' Deseleccionar todos los casos y combinaciones
       ret = SapModel.Results.Setup.DeselectAllCasesAndCombosForOutput()

   ' Establecer caso seleccionado para la salida
       ret = SapModel.Results.Setup.SetCaseSelectedForOutput("DEAD")

   ' Obtener reacciones de base con centroides
       ret = SapModel.Results.BaseReactWithCentroid(NumberResults, LoadCase, StepType, StepNum, Fx, Fy, Fz, Mx, My, Mz, gx, gy, gz, XCentroidForFx, YCentroidForFx, ZCentroidForFx, XCentroidForFy, YCentroidForFy, ZCentroidForFy, XCentroidForFz, YCentroidForFz, ZCentroidForFz)

   
   ' Cerrar ETABS
       EtabsObject.ApplicationExit (False)

   ' Limpiar variables
       Set SapModel = Nothing
       Set EtabsObject = Nothing
End Sub