Dim s as String, sChr as String, i as Long
s = "ABCD"
for i = 1 to len(s)
sChr = Mid(s,i,1)
msgbox i & ": " & sChr
next

--
Regards,
Tom Ogilvy


"Arne Hegefors" wrote:

i want to read a string one char at the time. how do i do this? pls help!