Zeichen in einer Zelle Zählen

ActiveCell.Offset(rowOffset:=1, ColumnOffset:=0).Activate
With ActiveCell.Characters(Start:=3, Length:=2).Font
.Superscript = True
End With

Funktioniert soweit alles. Was ich nun zusätzlich (z.B. mit einer if...then-Funktion einbauen will, ist:

Zähle die Zeichen in der Aktiven Zelle
Wenn Anzahl der Zeichen=[irgend eine Zahl] ist, dann führe das aus, sonst dass etc...

Wie lautet das auf VBAisch?

Danke im Voraus

Rolf