Prüfen ob Zelle fett formatiert ist

besteht per VBA eine Möglichkeit zu bestimmen, ob eine Zelle
fett formatiert, kursiv bzw. die Zelle unterstrichen ist.

Selection.Font.Bold = True , weißt den Wert nur zu.

Ich möchte aber als Ergebnis True oder False in From einer
Funktion haben. (z.B. IsFett(Zelle as Range) as Boolean)

Vielen Dank im Voraus