OpenOffice - Problemas al crear un documento con V.S. 2017

Private Sub Crear(sender As Object, e As EventArgs)

    Dim mArgs()

    Dim oDesktop, oDocument As Object

    Dim sUrl As String

    Dim oSM As Object

    oSM = CreateObject("com.sun.star.ServiceManager")

    oDesktop = oSM.createInstance("com.sun.star.frame.Desktop")

    sUrl = "file:///c:/comunidades/" & txtComunidad.Text & ".odt"

    oDocument = oDesktop.loadComponentFromURL(sUrl, "_blank", 0, mArgs())

End Sub