lHandle = LoadLibrary(App.Path & "\AddIn\Filter\" & sFilter & Chr$(0))
 
lProcHandle = GetProcAddress(lHandle, "AddInStartup" & Chr$(0))
lProcHandle = CallWindowProc(lProcHandle, 0, 0, 0, 0)
 
'CopyMemory... , beim EInbau bekomm ich entweder Zugriffsverletzungen, gar 
' nichts oder nur Müll zurückgeliefert
 
MsgBox sTest

FUNCTION AddInStartup ALIAS "AddInStartup" () EXPORT AS LONG
    DIM sTest AS STRING
 
    sTest = "Test"
 
    FUNCTION = STRPTR(sTest)
END FUNCTION

Manchmal verliert man, manchmal gewinnen die Anderen...