●入力された文字を20バイト(半角20文字)で切る
入力された文字を20バイトで切りたい場合は次のようにすると出来ます。
たとえ、半角と全角混じりの文字列で、20バイト目が、漢字だったとしても
その漢字を含めないで切ることが出来ます。

StrConv()関数

[答えの文字] = StrConv(LeftB(StrConv([入力文字], vbFromUnicode), 20), vbUnicode)

入力が「あいうえおaかきくけこ」の場合は
答えの文字は「あいうえおaかきくけ」となります