delete existing primary load cases

Dear All,

Could anyone help me to delete existing primary load cases in openstaad ? because every time I do the analysis, loads repeat instead of replacing the previous load case.

Here is my code:

Sub GenerateModel()

Dim cx(1) As Double
Dim cy(1) As Double
Dim cz(1) As Double
Dim Node(1) As Integer
Dim N1 As Integer
Dim N2 As Integer

Set suro = GetObject(, "StaadPro.OpenSTAAD")
For I = 0 To 1
cx(0) = 0
cy(0) = 0
cz(0) = 0
cx(1) = 10
cy(1) = 6
cz(1) = 0

Node(I) = suro.geometry.CreateNode((I + 1), cx(I), cy(I), cz(I))

Next

N1 = 1
N2 = 2

Beam = suro.geometry.CreateBeam(1, N1, N2)

''''''''''''''''''''''''''''''''''''''''
' Add suppoty

'Sub CreatePinnedSupport()
Dim objOpenSTAAD As Object
Dim SelNodesNo As Long
Dim SelNodes() As Long
Dim pinnedSupport As Long
Dim assignSupport As Variant

SelNodesNo = 1
'Create Pinned Support
pinnedSupport = suro.Support.CreateSupportPinned
assignSupport = suro.Support.AssignSupportToNode(1, pinnedSupport)

'''''''''''''''''''''''''''''''''''''''''''''
' Assign section properties

Dim TaperedProperties(6) As Double
Dim PropNo As Long
Dim BeamNo As Long

'Units are in meter for F1-F7 parameter
TaperedProperties(0) = 0.2 'F1
TaperedProperties(1) = 0.005 'F2
TaperedProperties(2) = 0.8 'F3
TaperedProperties(3) = 0.15 'F4
TaperedProperties(4) = 0.01 'F5
TaperedProperties(5) = 0.15 'F6
TaperedProperties(6) = 0.01 'F7

PropNo = suro.Property.CreateTaperedIProperty(TaperedProperties)

BeamNo = 1 'MEMBER NUMBER
suro.Property.AssignBeamProperty BeamNo, PropNo
suro.Property.AssignMaterialToMember "STEEL", BeamNo

''''''''''''''''''''''''''''''''''''''''''''''
' Add load

Dim Live As Boolean
Dim resVal As Boolean
Dim RetVal As Boolean

suro.Load.CreateNewPrimaryLoad Live
RetVal = suro.Load.AddMemberConcForce(1, 5, -26.4, 3, 0)

Live = False
resVal = suro.Load.DeletePrimaryLoadCases(Live)

End Sub

''''''''''''''''''''''''''''''''''''''''