Como poner diccionario a GetSpellingSuggestions?

[chascos69]

He conseguido que no pete: Ahora tengo esto:
Private Function EsPalabraIncorrecta(ByVal m_strWord As String) As Boolean
'SelecccionarDiccionario(m_strWord)
'Dim d As Microsoft.Office.Interop.Word.Dictionary
Dim Dic As String '= "French (France)"
Dim m_listOfAlternateWords As Word.SpellingSuggestions

Dic = aplicacionWord.Languages(Word.WdLanguageID.wdFrenc h).NameLocal
Dim s As String = "belgium"
m_listOfAlternateWords = aplicacionWord.GetSpellingSuggestions(Word:=s, CustomDictionary:="", MainDictionary:=Dic) 'CustomDictionary:="Custom.dic", MainDictionary:=Dic)

If (m_listOfAlternateWords.Count > 0) Then
Return True
Else
Return False
End If
End Function

Pero no me da resultados cuando debería... es cmo si no cogiera el diccionario que le paso... pq?