VBA Anpassung Schriftgröße an Txtboxlänge

Hallo,

Eine Txtbox mit festgelegter Breite und Höhe, die nicht verändert werden können, soll unterschiedlich viele Zeichen aufnehmen.

Kennt jemand einen Codeschnipsel, der die Schriftgröße z.B. von ptch12 auf ptch8 verkleinert, wenn die eingegebenen Zeichen nicht in die festgelegte Breite der Txtbox passen?

Grüße
Wilhelm