解決済みとしたのですが、疑問が出てきました。
SafeEnumerateDirectories関数中のコード、

①Dim directories As IEnumerable(Of String) = Nothing
②Dim directories As String() = Nothing　　　　　　　　　　

③directories = Directory.EnumerateDirectories(parentDir, seachPattern, SearchOption.TopDirectoryOnly)　　　　　　　　　　　　　　　　　　　　　　　　
④directories = Directory.GetDirectories(parentDir, seachPattern, SearchOption.TopDirectoryOnly)

②と④の組み合わせ
①と④の組み合わせ
①と③の組み合わせ（魔界の仮面弁士さんのコード）
は見た目、同じ結果になりますが、②と③の組み合わせではエラーこそ出ませんが、「Yield subDir」
「subDir」を返せないでいるのか一向に動きがありません。
「IEnumerable」「EnumerateDirectories」にそのからくりが在りそうですが、
「IEnumerable」は「For Each」を使えるようにする。「EnumerateDirectories」は随時処理までは押さえているのですが、どうもすっきりしなくて…。
教えていただけないでしょうか。