哪位大侠看看，我的下面的字符串正反序转换有啥问题，谢谢了啊

Question

Private Sub Command1_Click()
Dim s As String
Dim i, n As Integer
s = Text
n = Len(s)
For i = 1 To n
s = s & Mid(s, n - i, 1)
Next i
Text2.Text = s
End Sub

Answer 1

Private Sub Command1_Click()
Dim s,t As String
Dim i, n As Integer
s = "Text" (不知道你此处的Text是一个对象还是一个字符串？)
n = Len(s)
t=""
For i = n To 1
{
t = t & Mid(s, i, 1)
Next i
}
Text2.Text = t
End Sub