Function Code(ByVal s$, ByVal Key%) As String
Dim c As String * 1, iAsc%
Code = ""
For i = 1 To Len(s)
c = Mid$(s, i, 1)
Select Case c
Case "A" To "Z"
iAsc = Asc(c) + Key
If iAsc > Asc("Z") Then iAsc = iAsc - 26
Code = Code + Chr(iAsc)
Case "a" To "z"
iAsc = Asc(c) + Key
If iAsc > Asc("z") Then iAsc = iAsc - 26
Code = Code + Chr(iAsc)
Case "0" To "9"
iAsc = Asc(c) + Key
If iAsc > Asc("9") Then iAsc = iAsc - 9
Code = Code + Chr(iAsc)
Case Else
Code = Code + c
End Select
Next i
End Function

+ 号变成 -号，> 号变成<号，就可以了~~
Function Code2(ByVal s$, ByVal Key%) As String
Dim c As String * 1, iAsc%
Dim i As Integer
Code2 = ""
For i = 1 To Len(s)
c = Mid$(s, i, 1)
Select Case c
Case "A" To "Z"
iAsc = Asc(c) - Key
If iAsc < Asc("A") Then iAsc = iAsc + 26
Code2 = Code2 + Chr(iAsc)
Case "a" To "z"
iAsc = Asc(c) - Key
If iAsc < Asc("a") Then iAsc = iAsc + 26
Code2 = Code2 + Chr(iAsc)
Case "0" To "9"
iAsc = Asc(c) - Key
If iAsc < Asc("0") Then iAsc = iAsc + 9
Code2 = Code2 + Chr(iAsc)
Case Else
Code2 = Code2 + c
End Select
Next i
End Function

可以了！！！多谢！！！原来这么简单！！第一次在贴吧求助！！！太有爱了！感谢！！