Hallo! Ich bins mal wieder

Ich habe ein Problem und komme einfach nicht auf die richtige Lösung:

Ich habe ein Tabellenblatt in dem in den Zellen C1, E1, G1, I1, J1....,
also immer in jeder zweiten Spalte, etwas steht.

Ich brauche für mein Script die Nummer der ersten leeren Spalte.
Beispiel:
Die Zellen C1, E1 und G1 sind nicht leer. Die Variable soll also nicht 3, 5 oder 7 enthalten, sondern 9 für Spalte I.

Das habe ich bisher hinbekommen:

    i = 3
        While Not Cells(1, i) = ""
            i = i + 2
            Worksheets("Archiv").Range("A1").Value = i
        Wend

Leider ignoriert Excel völlig, dass die Zellen nicht leer sind und lässt immer die 3 in i. Die gesamte Schleife wird eigentlich ignoriert, denn der Wert von i wird auch nicht in Zelle A1 geschrieben.

Könnt ihr mir weiterhelfen???

Danke schonmal im Voraus,
mcscool88