テキストボックスの文字数を全角2バイト、半角1バイトとして制限する 標準モジュールに下記コードを記述します。 Function LimitedString(inString As String, LenMax As Byte) As String ' ' ' テキストボックスに入力された文字列の,文字数を制限する。 ' 全角文字を2,半角文字を1と計算する。 ' 全角文字の 2byte 中最後の 1byte が、文字数制限を超えたときは, ' 最後の全角文字を削除する。 ' 引数) ' InString : 入力済み文字列 ' LenMax : 制限するByte数 ' ' 返り値) ' 制限数…