Dim OpenOffice, Desktop
Dim myDoc, supportedServices

Set OpenOffice = CreateObject("com.sun.star.ServiceManager")
Set Desktop = OpenOffice.createInstance("com.sun.star.frame.Desktop")
Set myDoc = Desktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Array() )
MsgBox "Look ..."
supportedServices = myDoc.SupportedServiceNames
MsgBox "First service = " & supportedServices(0)
myDoc.close(True)