VBA 文字列中に太字があるかを判定したい

Question

VBAについて、どれだけ調べて試してもできず、sampleコードをご教示頂きたく。

A1～D1のセルにそれぞれ
A1：あいうえお　※「いう」が太字
B1：かきくけこ　※「こ」が太字
C1：さしすせそ　※「さ」が太字
D1：たちつてと　※太字無し
が入っています。

それぞれのセルに太字が含まれていれば、下の行（A2～D2）に”〇”を記載できるようなものを作りたいと思っています。
（結果はA2～C2が”〇”となります）

Midで区切って判定しようと思ってもうまくいかず、
以上のようなマクロを書く際、どのように書いたらいいのかご教示お願い致します。