Експортиране на c++ функция, декларирана във vb6, получаване на неуспешно извикване на отдалечена процедура грешка по време на изпълнение

Имам dll, написан на C++, който се експортира така:

extern "C" {
    extern _declspec(dllexport) (VOID) Merge(LPCSTR szFileName, LPCSTR szMergeString, DWORD dwAlignment, BOOL fRepeat);
}

Тази функция е дефинирана другаде като:

extern _declspec(dllexport) (VOID) Merge(LPCSTR szFileName, LPCSTR szMergeString, DWORD dwAlignment, BOOL fRepeat)
{   
    Tools::Merge(gcnew String(szFileName), gcnew String(szMergeString), dwAlignment, fRepeat == TRUE);
}

В моя vb6 dll декларирах дистанционното повикване по следния начин:

Private Declare Sub Merge Lib "Tools.dll" (fileName As String, mergeString As String, Alignment As Long, repeated As Boolean)

След това го наричам в кода така:

Merge strPageFileName, "COPY", 5, True

Когато стартирам приложението, получавам „Грешка в автоматизацията: извикването на отдалечената процедура е неуспешно“ в поле за съобщение.

Tools.dll е в C:\Windows\system32. Тествах с лошо име на dll, за да се уверя, че не е това проблемът, и получих грешка, че не може да намери файла, така че знам, че не е това. Нещо друго, което трябва да направя, за да заработи?

РЕДАКТИРАНЕ: Промяната на типа променлива според отговора на xxbbcc по-долу позволи това да функционира правилно. Това обаче създаде нов, засега напълно неразрешим проблем. Създадох друг въпрос тук, който има някои от подробности за него.

Отдалеченото повикване се извършва в COM+ dll, вътре във функция, която връща тип integer към друга не-COM dll. По някаква странна причина функцията на COM+ dll сега връща вариант от тип VT_ERROR вместо цяло число. Тествах това щателно и реших, че няма значение какво правя с върнатата стойност предварително, като я задавам на произволна стойност и т.н., винаги връща грешка. Странното е, че стойността на грешката очевидно е 0. Извиках CInt(returnValue), CStr(returnValue) и CLng(returnValue) и те връщат съответно 0, Error 0 и 0.

Не можах да намеря никаква информация, обясняваща защо функция, която трябва да върне цяло число, внезапно ще върне грешка вместо това. Това ми дава грешка при несъответствие на типа във функцията, която не е COM+, тъй като се опитва да присвои връщането на локално цяло число. Промяната на това във вариант ми позволи да направя кастингите по-горе. Извикването на VarType(returnValue) дава 10, което е vbError. Не искаме потенциално да загубим информация за грешка от други повиквания в dll COM+, така че не мога просто да игнорирам върнатата стойност.