Spellchecker with vb automation of OO

[tip2si]

I want to implement a spellchecker functionality in a VB6 appl. What ist wrong in this code:
....
Set oOO = CreateObject("com.sun.star.ServiceManager")
Set oSpell = oOO.createInstance("com.sun.star.linguistic2.SpellChecker")
Set oHyphen = oOO.createInstance("com.sun.star.linguistic2.Hyphenator")

The following line failed with err 438
Set aLocal = oHyphen.Locale("de", "DE", "")
Set xSpellWord = oSpell.spell("nähmlich", aLocal, aEmptyProps)
...

2nd question:
Set oOO = Nothing doesn't finish the task of soffice, how is this done?

Thanks Peter

[SergeM]

See :
Problem with terminating soffice.exehttp://www.oooforum.org/forum/viewtopic.phtml?t=5019&start=0
How to close all documents without OpenOffice.org closed ? http://www.oooforum.org/forum/viewtopic.phtml?t=15776&highlight=
_________________
Linux & Windows OOo3.0
UNO & C++ : WIKI
http://wiki.services.openoffice.org/wiki/Using_Cpp_with_the_OOo_SDK
In French
http://wiki.services.openoffice.org/wiki/Documentation/FR/Cpp_Guide

[Cybb20]

Set aLocal = oHyphen.Locale("de", "DE", "") fails because oHyphen simply has no method named Locale (in fact there is no Locale method throughout the whole API).
I guess you wanted to use the struct Locale which has three fields, but then you need to define this field before with something like:
Dim locale as new com.sun.star.lang.Locale
locale.Language = "de"
locale.Country = "DE"
locale.Variant = ""

And then you can use it.

Christian
_________________
- Knowledge is Power -