求解一段VB编程字符串加密

在文本框输入字符，按钮后在标签中显示加密字符
要求在程序中用注释的方式描写清楚你的加密办法，并用程序来实现这个加密方法。（1）考虑第1、3、5、7等位置上的字母进行一种变换，而2、4、6等位置上的字母进行另一种变换 （2）每两个字母一组进行变换 （3）将字符串从后到前进行处理
另外要用中文注释清楚加密方法
以上三种最好每个都来一种，但如果不行也可任选其一
十万火急，谢谢啦！！！

没时间 弄一下 1和 3

Private Sub Command1_Click()
Dim aa() As Byte
ReDim aa(Len(Text1.Text))
aa = Text1.Text
'aa = StrReverse(Text1.Text) '逆序 第三个把注释去掉
For i = 0 To UBound(aa)
If i Mod 2 = 0 Then
aa(i) = (aa(i) - 2) '简单的改变ASCII
Else
aa(i) = (aa(i) + 1) '简单的改变ASCII

End If
Next i
Text2.Text = aa
End Sub

没时间 弄一下 1和 3 private sub command1_click() dim aa() as byte redim aa(len(text1.text)) aa = text1.text 'aa = strreverse(text1.text) '逆序 第三个把注释去掉 for i = 0 to ubound(aa) if i mod 2 = 0 then aa(i) = (aa(i) - 2) '简单的改变ascii else aa(i) = (aa(i) + 1) '简单的改变ascii end if next i text2.text = aa end sub