byte check

'------------------------------------------------------------------------------
'   Description : byte(바이트) 글자 체크
'------------------------------------------------------------------------------
function fn_ByteLen(str)
    tlen=0
    tt=len(str)
    k=1
    for i=1 to tt
        if asc(mid(str,k,1)) < 0 then
            tlen=tlen+2
        else
            tlen=tlen+1
        end if
        k=k+1
    next
    fn_ByteLen=tlen
end function