这vb加密代码为什么会出错

Dim sph As String

Private Sub Command1_Click()
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Dim sde As String
sde = en(Text1.Text)
Label1.Caption = sen
End Sub

Private Sub Command3_Click()
Dim sen As String
sen = de(en(Text1.Text))
Label2.Caption = sde
End Sub
Function en(inp As String)
Dim i As Integer
Dim sout As String, scurrent As String, senw As String
i -Len(inp)
For x = 1 To i
scurrent = Mid$(inp, x, 1)
snew = Chr$(Asc(scurrent) + 2)
sout = sout & snew
Next x
en = sout
End Function
Function de(inp As String)
Dim i As Integer
Dim sout As String, scurrent As String, senw As String
i -Len(inp)
For x = 1 To i
scurrent = Mid$(inp, x, 1)
snew = Chr$(Asc(scurrent) - 2)
sout = sout & snew
Next x
de = sout
End Function

这vb加密代码为什么会出错 为什么这段HTML代码会出错 VB代码出错~ java 轻看我这段代码为什么会出错 VB代码总是无故出错! VB高手请帮看代码出错 请看看我这段VB代码哪里出错了？ 请问这段VB代码有什么出错的地方? 急急急!为什么我的VB软件总会出错 这段ASP代码为什么出错？？？