Private Sub Command1_Click()
'=======对文本进行编码处理
Dim i,str1,str2,str3
str1="需要处理的文本"
Dim b() As Byte  
b = StrConv(str1, vbFromUnicode)
    For i = 0 To UBound(b)
        b(i) = b(i) Xor 2
    Next
str2 = b
msgbox "结果1:" & str2         '返回的是经过编码后的乱码

'=======对文本进行反编码处理
For i = 0 To UBound(b)
    b(i) = b(i) Xor 2
Next  
str3=StrConv(b, vbUnicode)
msgbox "结果1:" & str3         '返回的是:"需要处理的文本"
End Sub

------------------------------------------------------------------------------
[b]现在我想要做成二个函数（即编码函数和反编码函数）可以作如下调用：
Encode("需要处理的文本")  '得到编码后的字符串
UNEncode(经过编码后的乱码) '得到正常的字符串[/b]

请问这二个函数我该怎么写啊，搞了好久，都没搞好，不知道如何写，大家帮我看看吧