こんにちは。

お知らせありがとうございます。
確かに動かないです。何で動かないコードが記事の中にまぎれてしまったのか首をひねってしまいますが…。

近日中に改修します。
ご迷惑をおかけしました。

該当箇所は説明の便宜上、前で紹介したコードをできるだけ変えないようにしながら、新しい説明項目を追加していくというスタンスになっています。
今、頭の中にある改修案は次のようなものです。(今環境がないので試めしてはいません)。

Dim animals = New String() {"アメンボ", "イノシシ", "ウマ", "エリマキトカゲ", "オオカミ"}

Dim results = From animal In animals Select CStr(animal.Length)

ListBox1.Items.AddRange(results.ToArray())