<% function vblenb(data) vblenb=lenb(data) end function %>