Fill Array from every 2nd Column in Word Table

[gmaxey]

I see. Try this:

Sub Cloud()
Dim oFrm As Cloud, oTbl As Table
  Set oFrm = New Cloud
  Set oTbl = ActiveDocument.Tables(1)
  If oTbl.Rows.Count > 2 And Not oTbl.Rows(2).Cells(1).Range.Text = Chr(13) & Chr(7) Then
    With oFrm.ListBox1
      .List = FillArray(oTbl)
      .ColumnCount = 5
    End With
  End If
  oFrm.Show
  Unload oFrm
  Set oFrm = Nothing
lbl_Exit:
  Exit Sub
End Sub
Public Function FillArray(oTbl As Table)
Dim myArray() As String
Dim i As Long, j As Long, lngCount As Long
  Set oTbl = ActiveDocument.Tables(1)
  ReDim Preserve myArray(oTbl.Rows.Count - 3, lngCount)
  For i = 0 To UBound(myArray, 1)
    lngCount = 0
    For j = 1 To oTbl.Columns.Count Step 2
      If i = 0 Then
        ReDim Preserve myArray(oTbl.Rows.Count - 3, lngCount)
      End If
      lngCount = lngCount + 1
      myArray(i, lngCount - 1) = Left(oTbl.Cell(i + 2, j), Len(oTbl.Cell(i + 2, j).Range.Text) - 2)
    Next
  Next
  FillArray = myArray
End Function