HRESULT: 0x80028018

     Dim CurrentCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture

        System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")

 

It's a bug about Excel interop. 

 adding the above previous to your code.