dim i as integerdim j as integerdim k as integerfor i=1 to 9 for j=1 to 9 for k=1 to 9 if i+j+k=23 then print(cstr(i)&cstr(j)&cstr(k)) end if next k next jnext i
