Using an equivalent to CreateObject in VBA

Hello
I have to translate EXCEL VBA Macro in OOBasic

how can I translate this piece of code?

This code use a COM object.

Thanks for replying


        Dim TKSession, TKBasket, TKError, TKArchive
        Dim running
        Dim strBasket, strArchive, strFileName, strActiveArchive,
strDocumentAImporter, strIndex, strDate, strStatut
        
        Set TKSession = CreateObject("DW5ToolKit.App")
        TKError = TKSession.IsDocuWareRunning(running)

        If running = 0 Then
            TKError = TKSession.StartDocuWare("admin", "admin", 10)
        End If
        TKError = TKError + TKSession.getbasket(strBasket, TKBasket)
        TKError = TKError + TKSession.GetArchive(ADFFileArchive, TKArchive)


--
View this message in context: 
http://nabble.documentfoundation.org/Using-an-equivalent-to-CreateObject-in-VBA-tp3913286p3913286.html
Sent from the Dev mailing list archive at Nabble.com.