Static check VBA - Wind Load

I made a program for getting static check results. The program is

"

Sub StaticCheck()

Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
Dim Load_Count As Long
Dim Loads() As Long
Load_Count = objOpenSTAAD.Load.GetPrimaryLoadCaseCount
ReDim Loads(Load_Count - 1) As Long
objOpenSTAAD.Load.GetPrimaryLoadCaseNumbers Loads
Dim sForces(0 To 5) As Double
Dim sReactions(0 To 5) As Double
For i = 0 To Load_Count - 1
objOpenSTAAD.Output.GetStaticCheckResult Loads(i), sForces, sReactions
Cells(2 * i + 2, 1).Value = Loads(i)
For count = 0 To 5
Cells(2 * i + 2, count + 2).Value = sForces(count)
Cells(2 * i + 3, count + 2).Value = sReactions(count)
Next count
Next i
Set objOpenSTAAD = Nothing
End Sub