Microsoft Access 掲示板

もう１つの質問を記載させていただきます。

現在以下のように、[テキスト]の文章を20バイトで区切ってテキストボックスで３つに分けるという処理をしています。

Private Sub btn項目用_Click()
Const COUNT As Long = 20
    Me.Refresh
        txt項目1 = StrConv(LeftB(StrConv([テキスト], vbFromUnicode), COUNT), vbUnicode)
        txt項目2 = StrConv(MidB(StrConv([テキスト], vbFromUnicode), COUNT + 1, COUNT), vbUnicode)
        txt項目3 = StrConv(MidB(StrConv([テキスト], vbFromUnicode), COUNT * 2 + 1, COUNT), vbUnicode)
       
        txt項目1長さ = LenB(StrConv([項目1], vbFromUnicode))
        txt項目2長さ = LenB(StrConv([項目2], vbFromUnicode))
        txt項目3長さ = LenB(StrConv([項目3], vbFromUnicode))

End Sub

このとき、うまく20バイトずつ文章が分かれてくれたらいいのですが
全角と半角が混ざった文章だと、文字化けしたり21バイトになったりします。
20バイト以下で、文字化けせずにうまくわけることはできませんでしょうか。

以上、ご検討いただければ幸いです。宜しくお願い致します。