Hallo Anja,
falls es einmal mehr als 30,000 Zeilen geben sollte, müßte anstelle von "interger" für alle Variablen, die Zeilen ansprechen, das Format "long" gewählt werden.
dim x as long 'etc
mfg