I'm trying to get a list of string arrays from the SynonymInfo object and in
the reference documentation it gives this as an example:

       Dim synonymInfo1 As Microsoft.Office.Interop.Word.SynonymInfo
       Dim key As Object
       Dim returnValue As Object
       returnValue = synonymInfo1.SynonymList(key)

However, it doesnt show how to initialize 'key'.

so here's the code I came up with:

   Sub test3()
       Dim doc As Microsoft.Office.Interop.Word.Document = New
Microsoft.Office.Interop.Word.Document
       Dim myRange As Microsoft.Office.Interop.Word.Range
       myRange = doc.Words(1)

       myRange.Text = "Transmit"
       Dim synInfo As Microsoft.Office.Interop.Word.SynonymInfo
       synInfo = myRange.SynonymInfo

       Dim mCnt As Integer
       mCnt = synInfo.MeaningCount
       If mCnt > 0 Then

           Dim sCnt As Integer
           For sCnt = 1 To mCnt
               Dim i As Int16
               Dim synList As String()
               'the next line wont compile.  the compile error is listed
below.
               'synList = synInfo.SynonymList(sCnt)
               ''Error 1 Option Strict On disallows implicit conversions
from 'Object' to '1-dimensional array of String'. C:\Documents and
Settings\georgep\Local Settings\Application Data\Temporary
Projects\ConsoleApplication1\Module1.vb 34 27 ConsoleApplication1
               'I get the following exception on the next line
               'Unable to cast object of type 'System.String[*]' to type
'System.String[]'.
               synList = CType(CType(synInfo.SynonymList(sCnt), Array),
String())
               For i = 1 To CShort(UBound(CType(synList, Array)))
                   Console.WriteLine(synList(i))
               Next i
           Next sCnt
       End If
   End Sub

can someone please help me get started on this?