CleanString external OLE calls

/*
sp_configure 'show advanced options', 1;
GO
RECONFIGURE;
GO
sp_configure 'Ole Automation Procedures', 1;
GO
*/

declare @Check  char(1)
Declare @Temp   char(1000)
Declare @FResult   char(1000)
Declare @Token  int
Declare @Result char(1000)

Set @Temp = 'Four very different heroes, flung together by a single mystery — why is the Hand, now '
            + 'under Daredevil''s leadership and operating out of the Hell''s Kitchen fortress known '
            + 'as Shadowland, killing C-list mobsters and wiseguys?' + Char(13) + Char(13)
            + 'As New York begins to turn on itself under the terrifying influence of Daredevil''s '
            + 'new reign of martial law, Misty and her unlikely allies race to discover the truth — '
            + 'does Daredevil know about these killings? What is their purpose? And can they be stopped?' + Char(13)
            + 'The answers will lead all four heroes down the dark streets of Shadowland, filled with '
            + 'violence, secrets, betrayal... and blood.'

Set @Check = 'e'

EXEC sp_OACreate 'CleanString.MyClass', @token OUTPUT
EXEC @Result = sp_OAMethod @token, 'returnvalue', @FResult OUT, @Temp, @Check


IF @Result <> 0
BEGIN
   EXEC sp_OAGetErrorInfo @token
    EXEC sp_OADestroy @token
    RETURN
END;


EXEC sp_OADestroy @token

Print @FResult