Variable in Array schreiben?

[plate]

Variable in Array schreiben? Bitte schnelle Hilfe!

Hallo,
ich habe folgenden Quellcode:

Private Sub Command1_Click()
Open "C:\Dokumente und Einstellungen\PSCHOLP\Desktop\nummern.xls" For Input As #2
Do While Not EOF(2)
Line Input #2, Zahl
Irgendwas = Array()
Loop
Close #2
End Sub

Die Variable Zahl nimmt immer den Wert einer Nummer aus der Excel Tabelle an. Beim nächsten "Durchgang" wird Zahl mit der zweiten Nummer belegt und der erste Wert überschrieben. Nun möchte ich das immer der Wert für Zahl in den Array geschrieben wird.
Beim nächsten "Durchgang" soll die zweite Zahl an zweiter Stelle im Array stehen.

Beispiel:
Wenn die Excel Tabelle nummern.xls so aussieht:
A
1 35433
2 54694
3 68746
4 87943
5 54143

Soll der Code nacher so ausehen:

Private Sub Command1_Click()
Open "C:\Dokumente und Einstellungen\PSCHOLP\Desktop\nummern.xls" For Input As #2
Do While Not EOF(2)
Line Input #2, Zahl
Irgendwas = Array(35433,54694,68746,87943,54143)
Loop
Close #2
End Sub

Kann mir jemand sagen wie das geht?
Ist sehr wichtig und eilig!

Vielen Dank,
mfg
plate-gt

PS: Ihr seid meine letzte Hoffnung

 

[spirit]

Hallo

Dein Code:

Do While Not EOF(2)
Line Input #2, Zahl
Irgendwas = Array(35433,54694,68746,87943,54143)
Loop
Close #2
End Sub

Versuche mal

Dim Feldanzahl As Integer
Dim Variableninhalt()
    Feldanzahl = 0
Do While Not EOF(2)
Line Input #2, Zahl
    Feldanzahl = Feldanzahl + 1
    ReDim Preserve Variableninhalt(Feldanzahl)
    Variableninhalt(Feldanzahl) = Zahl
Loop
Close #2
End Sub

Versuche mal