>>185
cc = 30 - LenB(StrConv(Name(i), vbFromUnicode))