Vb Net Gettype Integer Rules Addition