=. Attname, IV-Anteil_20Anb_BV20.att" End If 'Open Visum Set Visum = CreateObject("Visum.Visum.10") 'open the version Visum