vb.net 1 000