dim i as integerdim j as integerfor j=0 to 2if txt(j)>txt(j+1)i=cint(txt(j))elsei=cint(txt(j+1))end iftxt(4)=i