Delphi CBA Scriptsteuerung

[calibra301]

Hallo,

komisches Problem aus der Ecke "Gestern gings noch..."
Ich habe eine C++ Anwendung die ich aus einem Delphi Tool aus via VBA Script
steuere. Ging auch ewig. Nun kommt beim Aufruf

Musicplayer.vbaopen(Playlist.Items[Playlist.ItemIndex]);

ein "Ausnahmefehler vom Server".

In der C++ dann beim Aufruf vbaopen mal eine Messagebox eingebaut -> der übergebene Filename
kommt sauber an.
PC ist ein Win11, Anwendung Delphi XE8 / Visual Studio 2015.
Wie gesagt , "gestern gings noch...". Schiebe es aktuell auf Win11.
Oder weiss jemand mehr ??

Delphi-Quellcode:

Codeschnipsel C++
DISP_FUNCTION(CMain,"VBAOpen",          VBAOpen,          VT_EMPTY,VTS_BSTR)

void CMain::VBAOpen(LPCTSTR lpFileName)
{
  OnOpenDocument(lpFileName);   
} 

Codeschnipsel Delphi:
Musicplayer:=CreateOLEObject('Musicplayere.Document');
...
Musicplayer.vbaopen(Playlist.Items[Playlist.ItemIndex]);

Gruss
Calli