String in einzelne Zeichen Zerlegen in VB 6

also unter c# würde ich das so machen

foreach(char c in string)
{
   //machwas mit dem zeichen in der variable c
}

sowas sollte es auch unter vb geben

der string ist ein code aus nullen und einsen aus 118 zeichen den ich 
kommplett zerlegen will.einige zeichen sollen dann einzeln ausgewertet 
werden und andere zu einer neue zeichenkette zusammengefügt werden
habs schon z.b. mit

mid(string1,10,[1])=mid(stringx,3,[1])

veruscht. dass das 10 zeichen aus string1 zum 3ten zeichen in stringx 
wird. sowas wäre am optimalsten

Moin,
ja das hatte funktioniert, allerding wurde es mir irgendwann zu viel das 
per hand zu machen, da ich das ganze auch noch andersrum machen muss. 
daher die idee die zeichen komplett erstmal umzustellen, d.h aus dem 
ersten string (Daten) mit 118 zeichen wird ein neuer string (Daten2) mit 
118 zeichen aber mit einer anderen reihenfolge. dazu hab ich mir dann 
ein array gebastelt, dass die neue reihenfolge enthällt und dann 
versucht das über eine sschleife zu machen, dies funktioniert aber 
leider nicht und ich verstehe nicht warum

Dim i as byte
Dim k as byte
.
.
.
position=array(115,4,15,17,usw.)
.
.
.
k=0
For i = 1 To 118
Mid(Daten2, i, 1) = Mid(Daten, position(k), 1)
k = k + 1
next
.
.
.

dabei kommt dan folgende fehlermeldung
"Laufzeitfehler '13'
Typen unverträglich"

Hi,
probiere es mal damit:

1

Public Function Sting_To_Byte(ByVal vData As String) As Byte()

2

    Dim Bytes() As Byte      

3

    Dim ActByte As Long

4

5

    ReDim Bytes(Len(vData) - 1)       ' erzeuge Array, Start mit 0

6

7

    For ActByte = 0 To UBound(Bytes)  

8

        ' Mid startet seine Zählung von 1 an !

9

10

        Bytes(ActByte) = Asc(Mid(vData, ActByte + 1, 1))

11

    Next ActByte

12

    Sting_To_Byte = Bytes

13

14

End Function

bye
Klaus