Crash when Stopping All Code Execution (1 Viewer)

Private Function Func1()
  on error goto Func1Err
  
  if something then call Func2
  Do some more stuff

Func1Exit:
   Exit Function
Func1Err:
   msgbox "Error Message"
   resume Func1Exit
End Function

Private Function Func2()
   on error goto Func2Err

   Do some stuff...
   If something happens then gosub StopAll

Func2Exit:
   Exit Function
Func2Err:
   Msgbox "Error Message"
   resume Func2Exit

StopAll:
  Msgbox "Getting Ready to Stop"
  End

end function

Private Function Func1()
On Error GoTo Func1Err

If something Then
    [COLOR="red"]If Func2 Then[/COLOR]
        Do some more stuff
    End If
End If

Func1Exit:
    Exit Function
Func1Err:
    MsgBox "Error Message"
    Resume Func1Exit
End Function

Private Function Func2()[COLOR="Red"] As Boolean[/COLOR]
On Error GoTo Func2Err

Do some stuff...
If something happens then gosub StopAll

Func2Exit:
    Func2 = True
    Exit Function
Func2Err:
    MsgBox "Error Message"
    Resume Func2Exit
StopAll:
    MsgBox "Getting Ready to Stop"
    Exit Function
End Function