Query: Select Companies having double VAT Numbers

Select Replace([IBLCNum],' ', ''), [Name] from [Company]
where [DBId] = 3 and Replace([IBLCNum],' ', '') in
(Select Replace([IBLCNum],' ', '') from [Company]
where not [IBLCNum] = ''
and [DBId] = 3
Group by Replace([IBLCNum],' ', '')
having count(*) > 1)
order by Replace([IBLCNum],' ', ''), [Name]