word = "百度知道"length = Len(word)For i=1 To length Response.Write Mid(word,i,1)&"、"Next
没这个必要吧，直接取字符不就行了吗，何必把它分开。
同意楼上取得长度，再for next
