28 Out of stack space

[Programmers]

Hello, this macro was written by a previous programmer in my company. We recently got an upgrade to Office 365 and it broke the macro. I have updated on the Declare functions with Declare SafePtr and have moved past many other errors. this is the one that I m not able to figure out . can someone please help me.

Public Sub Wait(Optional ByVal iMilliSecWait As Integer = MGEN_Globals.gimsDEFAULT_SLEEP_TIME, _
                     Optional ByVal iMultiplier As Integer = 1)
'Declarations
Dim vReturn As Variant
Dim lErr As Long, sErr As String
Const sSource As String = "Wait()"

On Error GoTo ErrorHandler
    'Call Trap(msModule & " " & sSource, "This proc/func has been trapped")
'Code Start
StackTrace msModule, sSource

Call Wait(iMilliSecWait * iMultiplier)

Finished:
'Run clean up here
Exit Sub

ErrorHandler:
    lErr = Err.Number
    sErr = Err.Description
    If gbDebug_Mode Then
        DebugPrint msModule & " " & sSource, lErr & " " & sErr
        Stop
        Resume
    Else
        'Run clean up here as  well in case of error.
        DebugPrint msModule & " " & sSource, lErr & " " & sErr
        Err.Raise lErr, msModule & " " & sSource, sErr
    End If
End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer