http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65195&skin=0
dim str as string = "4,7"
dim snum as string = "001" dim lnum as string = "010" dim fmt as string = "".PadLeft(snum.Length, "0") dim len as string = 2 dim str as string = "" for i as integer = snum to lnum dim b as bool =true for each s as string in str.split(",") if Val(s) = i then b=false end if next if b then for j as integer = 1 to len str &= format(i, fmt) & vbcrlf next next end if msgbox(str) |