Vb Net Gettype Integer Rules