>>283

dim wk() as byte
wk()=Strconv( "文字列",vbFromUnicode )

後はバイト配列を一つづつ比べれ。
バイト配列の最大はubound(wk())とかやで。