//例子
Dim Strl,i
Strl = "string"
Dim i
For i=1 to Len(Strl)-1
     Msgbox Mid(Strl, i, 1)
Next