Out of stack space

HI

I am having issues with this code I have downloaded from a piece of software ( I am not proficient in VBA so am struggling). The error message I get when I try and run the macro is "Out of Stack Space". Would anyone be able to help with any suggestions I could do to try and stop this error?

code below:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private WithEvents mMarketShare As DfsBroker.DataMarketShare

Private mDataMgr As DfsCmd.DataManager



Sub MktShareBySecurity()

Dim dataMgr As DfsCmd.DataManager

Set dataMgr = GetObject(, "dfs.DataManager")

Set mDataMgr = New DataManager

Set mMarketShare = mDataMgr.CreateOb("marketshare")

MktShareBySecurity

With mMarketShare

.Clear

.StartDate = "26-MAR-2016"

.EndDate = "26-APR-2016"

.Frequency = bshfMonthly

.SecurityFilter = "WES"

.ExchangeFilter = "ASX"

.MaxRows = 10 ' Sets the maximum number of rows to be returned

.Request

End With

End Sub

Private Sub mMarketShare_DataError(ByVal ErrorMessage As String)

Debug.Print ErrorMessage

End Sub

 

Private Sub mMarketShare_DataReady()

Debug.Print mMarketShare.RowCount("Security")

End Sub