'----------FUNCTION STRLEN(STR)----------
FUNCTION strlen(str)
    dim p_len
    p_len=0
    strlen=0
    p_len=len(str)

    FOR xx=1 to p_len

        IF asc(mid(str,xx,1))<0 then
            strlen=int(strlen) + 2
        ELSE
            strlen=int(strlen) + 1
        END if

    NEXT

END function


FUNCTION myFind(TBBH,DLMC,qsdwmc )
    dim str
    str=qsdwmc
    dim d
    d=strlen(str)
    dim d1
    dim d2
    d2=strlen(TBBH) /2
    d1=strlen(DLMC) /2

    myFind ="　" & space(d-1) &tbbh & vbnewline  & str & string(d1, "—") & vbnewline & space(d) & dlmc 
END Function


Function FindLabel ( [TBBH],[DLMC], [qsdwmc]   )
  FindLabel = myFind( [TBBH],[DLMC], [qsdwmc] )
End Function
