请教如何取得字符串里的每一个字符，谢谢！！！！

[ahbc123]

请教如何取得字符串里的每一个字符，谢谢！！！！

[felix]

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To Len(Trim(Text1.Text))
MsgBox Mid(Trim(Text1.Text), i, 1)
Next i
End Sub

[lxcc]

Private Sub Command1_Click()
Dim strTemp As String
strTemp = "asdkajshdkja"

Dim i As Integer
Dim iCount As Integer

iCount = Len(strTemp)

For i = 1 To iCount
Debug.Print Mid(strTemp, i, 1)
Next
End Sub

[LichKingSZ]

优化一下：
Private Sub Command1_Click()
Dim i&,strT$,lngCt&
strT=Trim(Text1.Text)
lngCt=Len(strT)

For i = 1 To lngCt
MsgBox Mid(strT, i, 1)
Next
End Sub
这样好一些