Abrir un Documento OpenOffice con V.B.

Tratos de abrir un documento OpenOffice con un código que he montado en V.B. paro me da problemas en la ruta.

Tome este código como ejemplo:

Sub AbriendoDocumentos1()
      Dim sRuta As String
      Dim mArg()
      Dim oDocumento As Object
     'Reemplaza esta ruta por la ruta de tú archivo
      sRuta = ConvertToUrl( "/home/mau/Mi archivo de Calc.ods" )
      oDocumento = StarDesktop.loadComponentFromURL( sRuta, "_blank", 0, mArg() )     

End Sub

Y este es mi código:

    Private Sub misDatos()
        miFecha = txtFechaReunion.Text
        miDia = Microsoft.VisualBasic.Left(miFecha, 2)
        miMes = Microsoft.VisualBasic.Mid(miFecha, 4, 2)
        miaño = Microsoft.VisualBasic.Mid(miFecha, 7, 4)
        miFecha = miDia & "-" & miMes & "-" & miaño
        miDocumento = txtComunidad.Text & "_" & miFecha ' & ".odt"
    End Sub

    Sub AbrirDocumento()

        Carpeta = "C:\DatosComunidades\JuntaExtraordinaria\"
        misDatos()
        Dim miRuta As String = Carpeta & miDocumento & ".odt"
        Dim sRuta As String
        Dim ConvertToUrl As String = Nothing
        Dim mArg()
        Dim oDocumento As Object
        'Reemplaza esta ruta por la ruta de tú archivo
        sRuta = ConvertToUrl(miRuta)
        oDocumento = StarDesktop.loadComponentFromURL(sRuta, "_blank", 0, mArg(0))
    End Sub

El error me da al tratar de convertir mi ruta con el ConvertToUrl.

Haber si alguien me puede indicarme como arreglar el entuerto.

Gracias

Windows / Edge 104.0.1293.70