A="2006394138" B=CLng(A) B=B+1 Response.Write(B) Response.Write("<BR>") A=2006394138 B=Cdbl(A) B=replace(A,"6","@") Response.Write(B)