Can someone help me to write this program on Matlab ?

VBA Example

Sub GetCableProperty()
   'dimension variables
      Dim  SapObject as cOAPI
      Dim SapModel As cSapModel
      Dim ret As  Long
      Dim Name As String
      Dim MatProp As String
      Dim  Area As Double
      Dim Color As Long
      Dim Notes As  String
      Dim GUID As String

   'create Sap2000 object
      Set  SapObject = CreateObject("CSI.SAP2000.API.SapObject")

   'start Sap2000  application
      SapObject.ApplicationStart

   'create SapModel  object
      Set SapModel = SapObject.SapModel

   'initialize  model
      ret = SapModel.InitializeNewModel

   'create model from  template
      ret = SapModel.File.New2DFrame(PortalFrame, 2, 144, 2,  288)

   'add material
      ret = SapModel.PropMaterial.AddQuick(Name,  MATERIAL_TENDON, , , , , ,  MATERIAL_TENDON_SUBTYPE_ASTM_A416Gr270)

   'set new cable  property
      ret = SapModel.PropCable.SetProp("C1", Name,  2.25)

   'get cable property data
      ret =  SapModel.PropCable.GetProp("C1", MatProp, Area, Color, Notes,  GUID)

   'close Sap2000
      SapObject.ApplicationExit  False
      Set SapModel = Nothing
      Set SapObject = Nothing
End  Sub