DIM i as integer
das sollte eigentlich klappen