Stringkette in Array verteilen ?

[Stephan M. (nahpetsm)]

Hallo,
ich glaube das ist einfache VB-Schule .. aber ich komm leider nicht 
selbst drauf :

fld_hex = 
"00000100000000E3000000000000F50000000100000000E3000000000000F500"

diese soll nun in blk_hex() verteilt werden und zwar jeweils 8 Zeichen

In VBA hatte ich das so:
Dim fld_hex As String, blk_hex() As String

 'fld_hex in 8 x 8er Blöcke aufteilen
blk_hex(7) = Mid$(fld_hex, 1, 8)
blk_hex(6) = Mid$(fld_hex, 9, 8)
blk_hex(5) = Mid$(fld_hex, 17, 8)
blk_hex(4) = Mid$(fld_hex, 25, 8)
blk_hex(3) = Mid$(fld_hex, 33, 8)
blk_hex(2) = Mid$(fld_hex, 41, 8)
blk_hex(1) = Mid$(fld_hex, 49, 8)
blk_hex(0) = Mid$(fld_hex, 57, 8)

In VB meckert er : "Referenziertes "blk_hex" hat den Wert "Nothing"."

Kann mir jemand auf die Sprünge helfen ?
Vielen Dank im vorraus.

[Micha (Gast)]

Hallo,

du musst natürlich blk_hex() auch als Array definieren.

Dim blk_hex(0 To 7) As String


Gruß Micha

[Stephan M. (nahpetsm)]

So einfach ist es ja nicht ... Dim blk_hex() ist ja schon "unendlich" 
dimensioniert ... am Angfang hatte ich natürlich DIM blk_hex(7) .. warum 
ich nun 0 to 7 eintragen soll ist mir unklar, aber auch das funktioniert 
nicht ... gleicher Fehler wie zuvor.

[Stephan M. (nahpetsm)]

sry ... jetzt habe ich den Fehler gefunden ... hatte zwischendrin ein 
Erase blk_hex.. kein Wunder kopfklatsch

Fall erledigt.