ช่วยทีครับ VB2008 ส่งข้อมูลจาก Listview ออก OpenOffice Calc ยังไงครับ แนะนำด้วยครับ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim oSM As Object
    Dim oDesk As Object
    Dim oDoc As Object

    oSM = CreateObject("com.sun.star.ServiceManager")
    oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
    Dim aNoArgs(-1)
    oDoc = oDesk.loadComponentFromURL("private:factory/scalc", "_blank", 0, aNoArgs)
  
End Sub