lstansa is an array of stringbuilders. pans.value is a numeric up down.

dim s as string
s=lstANSa(pANS.Value).ToString

the above two lines execute as soon as you press F8.
if i then try to assign s to the textbox it takes seconds also.