vb6 excel late binding

I'm using Office 2016 32bits on Win10. The following code worked perfectly and I was able to manage every aspect of Excel and PPT from VB6.

   Public Sub Main()
   '*********************BDOK GAM ****************************ú÷åôú 
   Dim xlApp As Object    ' Late binding, or As Excel.Application with Early
    Public PpApp As Object    ' Late binding, or As Excel.Application with Early

On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
Set PpApp = GetObject(, "PowerPoint.Application")

But now, in the last few days, xlApp and PpApp return "nothing" and I have not a clue why? Excel and Powerpoint are properly referenced

When using the same code In VBA module, it works fine