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