求一段简单加密程序的代码，把输入的的字符串的字符逐一转换为ASCII码中的下一个字符，比如把b转换成c（汉字是被视为两个ASCII码来处理的，不需要另外编程）

用VB编写！！！

因为VB字符串使用的是UNICODE编码，所以在转换时要注意一下字节顺序。程序如下：

Private Sub Command1_Click()
Text2.Text = Encode(Text1.Text)
End Sub

'加密函数

Private Function Encode(str As String) As String
Dim buf() As Byte
buf = str
For i = 0 To UBound(buf) Step 2
buf(i) = buf(i) + 1
If buf(i + 1) <> 0 Then
buf(i + 1) = buf(i + 1) + 1
End If
Next i
Encode = buf
End Function

vb 6.0 还是 VB.Net ?