>>15

While LenB(filename) > 31
　filename = Left(filename,Len(filename)-1)
Wend

これでどう？

CharByte も Declare で ToolBox 呼べば使えるよ。
Asc(char) > &HFF でも判断できるな。