急~~~~~~在线等！！简单VB编程，将字符反向输出

Private Sub Command1_Click()
For i = 1 To Len(Text1)
s = s & Left(Right(Text1, i), 1)
Next
Text2 = s
End Sub

Private Sub Command1_Click()
s=Text1
m=Len(s)
For i=1 To m
k=k & SubStr(S,m-i+1,1)
Next
Text2=k
End Sub

Sub Command1_Click()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & Left(Right(Text1.Text, i), 1)
Next
End Sub

Private Sub Command1_Click()
Dim StrTmp As String
For i = 1 To Len(Text1.Text)
StrTmp = Right(Text1.Text, i)
Text2.Text = Text2.Text & Left(StrTmp, 1)
Next
End Sub