VB的菜鸟问题

说起来，谁都会晕死，我都不敢跟VB群里的人说了

这代码哪错啦~~~~~

帮忙修正下：

Private Sub Form_Load()
FileName$ = InputBox("解密路径文件")
Open FileName$ For Input As #1
Line Input #1, yw$
Close #1
xw$ = ""
n = Len(yw$)
For i = i To n
yz$ = Mid$(yw$, i, 1)
xz$ = Chr(Asc(yz$) + 10)
xz$ = xw$ & xz$
Next
Open FileName For Output As #1
Print #1, xw$
Close #1
MsgBox "解密完成", vbOKOnly + 15, "ok"
End Sub

xz$ = xw$ & xz$

改成：

xw$ = xw$ & xz$