Error -2147418111 after update W10 V20H2 + office to 16.0.13231

One of our customers is used a vb.net exe program to start Word from an application. Working fine for years.
After the Windows update to W10 V20H2 they get an error with this program -2147418111 hex value is 80010001.

Looks like it is going wrong in the statement oDoc.Range.Text = "Activeren n-Office"

Has anyone an idea how this suddenly can happen?


REM Word object aanmaken
Try
oWord = GetObject(, "Word.Application")
Catch ex As Exception
oWord = CreateObject("Word.Application")
End Try

Try
oWord.WindowState = 1 'wdWindowStateMaximize
oWord.Visible = True
oWord.Activate()
oDoc = oWord.Documents.Add
REM deze regel gaat fout als er een dialoogvenster open staat
oDoc.Range.Text = "Activeren n-Office"