Experienced Macro Open Office Basic Programmer Needed

[strfle]

I have a project that involves a word sorting system. The Open Office spell checker would be utilized to determine if a string has words in it. For example, a string "dogdog" would pass because it contains two words in it and no extra characters. However, a string "dogeadog" would fail because it contains extra characters "ea". The Open Office spell checker returns "true" if a word is spelled correctly and "false" if it is not. I have the code that operates the spellchecker already completed. The programmer simply needs to link some code together, make several loops, and do some string manipulation. The code must be tightly coded and heavily commented for future functionality.

I have the whole algorithm ready plus examples, illustrations, and the spreadsheet already formatted to assist the programmer. Please PM or reply if interested. I will be paying the programmer through paypal. I think this project will take about 2 hours. And no, this is not a homework assignment.

It is a macro for Calc. Here is the spell checker code. Just looking for some help. I cannot do it on my own at this time.

Sub SpellCheckExample
Dim s() As Variant
Dim vReturn As Variant, i As Integer
Dim emptyArgs(0) As New com.sun.star.beans.PropertyValue
Dim aLocale As New com.sun.star.lang.Locale
aLocale.Language = "en"
aLocale.Country = "US"

s = Array("hello", "anesthesiologist", _
"PNEUMONOULTRAMICROSCOPICSILICOVOLCANOCONIOSIS", _
"Pitonyak", "misspell")

'*********Spell Check Example!
Dim vSpeller As Variant
vSpeller = createUnoService("com.sun.star.linguistic2.SpellChecker")
'Use vReturn = vSpeller.spell(s, aLocale, emptyArgs()) if you want options!
For i = LBound(s()) To UBound(s())
vReturn = vSpeller.isValid(s(i), aLocale, emptyArgs())
MsgBox "Spell check on " & s(i) & " returns " & vReturn
Next
End
End Sub