Microsoft Access 掲示板

お世話になります。

hatenaさんの制作されたAutoFontSize関数を活用して、はがきの宛名面をレポートで作成しています。

文字数が少ないものを表示させる時、テキストボックスの高さ・幅ともに余裕があるにも関わらず、フォントサイズが縮小されてしまいます。具体的な例としては、高さ約10cm、幅1cmのテキストボックスに「株式会社〇〇〇〇〇」と表示させようとすると、標準フォントサイズは22ですが17ポイント程度に縮小されてしまいます。
標準モジュールには改良版をそのまま使用しています。
文字数が少ない場合のフォントサイズの縮小を減らすにはどの部分の数値を変更すればよろしいでしょうか？

お忙しいところ恐縮ですが、関数の製作者であるHatena様の回答をお待ちしております。

何文字までが必要以上に縮小されてしまうか調べたところ、テキストボックスの中に入る文字が13文字までだとかなり縮小されて表示されます。14文字からは概ねバランス良く縮小されます。

かれこれ数日解決法が見つからずに苦戦しております。この質問が目に入りましたら是非ご回答いただければと思います。