それと
長さがまちまちなマルチバイト文字列を扱うなら
固定長文字列にせず、ポインタ使えばいいよ

Dim a As WString Ptr
a = Allocate(Len(WString))
*a = "今日は、世界！"
Print *a
Print Len(*a)
*a = "Hello World!"
Print *a
Print Len(*a)
Deallocate(a)
sleep

結果は

今日は、世界！
7
Hello World!
12