VB问题：把一个字符串反过来写一遍，怎样写？

StrReverse函数
StrReverse函数 描述返回一个字符串，其中一个指定子字符串的字符顺序是反向的。语法StrReverse(string1)参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串("")，则返回一个长度为零的字符串。如果string1为Null，则产生一个错误。

str2 = StrReverse(str1)

窗体上画一个按钮和文本框：
Private Sub Command1_Click()
Text1 = ""
Dim a()
strtxt = InputBox("输入字符串", "Tips")
l = Len(strtxt)
ReDim a(l)
For i = 1 To l
a(i) = Mid(strtxt, i, 1)
Next i
For i = l To 1 Step -1
Text1 = Text1 & a(i)
Next i
End Sub