Como poner diccionario a GetSpellingSuggestions?

[chascos69]

Estoy ya desesperado con esto .. he mirado en todos los sitios de internet que he podido y no hay manera

Esta es mi función:

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim CorrectionsCollection As Word.SpellingSuggestions
Dim MainDict As String = Languages(wdFrench).NameLocal

CorrectionsCollection = _
WordApp.GetSpellingSuggestions(ListBox1.Text, , , MainDict)
ListBox2.Items.Clear()
If CorrectionsCollection.Count > 0 Then
Dim iWord As Integer
For iWord = 1 To CorrectionsCollection.Count
ListBox2.Items.Add(CorrectionsCollection.Item(iWor d).Name)
Next
Else
ListBox2.Items.Add("No suggestions!")
End If
End Sub

WordApp.Languages.count tiene lenguajes pero cuando haces un WordApp.Languages(0) te dice que no existe ninguno.... ???

Como le paso el diccionario pues?
Gracias