ちょっと訂正。

>> Dim cols = jsonList("grouplist").Select(Function(g) g.ToString())
> 上記の実行結果は、下記のようになります。
> Dim cols() As String = {"fruit", "animal", "flower"}

上記の説明は正しくありませんね。

「Dim cols() As String」にするためのコードはこうです。

Dim cols = jsonList("grouplist").Select(Function(g) g.ToString()).ToArray()

今回は .ToArray() していなかったので、実際は 「Dim cols As IEnumerable(Of String)」になっています。