AutoFontSize関数を垂直文字配置の指定ができるよう改良

AutoFontSize関数を利用して、レポート内テキストボックスのデータを縮小することはできたのですが、縮小すると、文字の配置が上側になってしまうのを、どうにか真ん中に表示させたいのです。エクセルには、セルの書式設定で、「縦位置」「中央揃え」というのがありますが、アクセスでどうにかならないものでしょうか？ テキストボックス内の文字を自動で縮小して全体を表示でAutoFontSize関数を紹介しました。それに関して、上記のような要望がありました。そこで、引数で、文字の垂直配置（上, 中央, 下）を指定できるように改良しました。 難易度:

[whitecal]

“/Option Explicit”

[endlessdoor]

テキストボックスのフォントサイズを自動変更する関数