Der folgende Code schlägt mit einem OLE 800040005 "nicht angegebenen" Fehler auf dem fehlCentimetersToPoint Aufruf bei Ausführung in Delphi (XE), die ähnliche VBS- oder VBA-Version besteht

var w : OleVariant;

w := CreateOleObject('Word.Application');
w.Visible := true;
Writeln(w.CentimetersToPoints(2.0));

FWIW gibt die Typbibliothek an

/ [id(0x00000173), helpcontext(0x09700173)]
// single CentimetersToPoints([in] single Centimeters);

Standardmäßig übergibt Delphi die Floating-Werte nur als Double, also habe ich versucht aufzurufenIDispatch.Invoke direkt und Weitergabe des Arguments alsVT_R4, aber ohne bessere Ergebnisse.

Bearbeiten: VB-Version, die funktioniert (in .vbs speichern)

set w = CreateObject("Word.Application")
w.Visible = true
msgbox w.CentimetersToPoints(2.0)

Irgendwelche anderen Vorschläge, was schief gehen könnte?