Get char by char in a string

[Gti]

I have a string and i want to run the string schar by char.

(e.g

String -> ABCDEFGHIJKLMNOP

I want to see de first char ( A ) the next char .....

How can i do it?

Tkx

;-)

 

[Chance1234]

dim str as string

dim x


str = "ABCDEFGH"

for x = 1 to 8

debug.print left(str,x)

next

 

[nickjar2]

Gti,

This should work:

Dim s As String
Dim iLen As Integer
Dim iCount As Integer


s = "abcdefg"

iLen = Len(s)
For iCount = 1 To iLen

MsgBox Mid$(s, iCount, 1)

Next iCount