某仓库物品代码格式为“X-XXX-XXXXX-Y”，其中“X”和“Y”均为0到9之间的数字，“Y”为校验码．校验码由前面9个X计算得到，计算方法为：从左边开始，第1个数字乘以1加上第2个数字乘以2…依此类推，直到加上第9个数字乘以9，将该结果除以10，所得余数即为校验码．
小吴设计一个根据校验码校验物品代码的VB程序，功能如下：在文本框Text1中输入物品代码，单击“校验”按钮Command1，如果输入的校验码与计算所得的校验码一致，就输出“校验通过”（如图甲所示），否则输出“校验不通过！”（如图乙所示）．

实现上述功能的VB程序如下，加框处代码有错，请改正．
Dim s As String′用于存储输入的物品代码
Dim t As String
Dim i As Integer,j As Integer
Dim sum As Integer′用于存储计算校验码的累加和
Dim check_-old As Integer′用于存储输入物品代码中的校验码Y
Dim check_-new As Integer′用于存储按照前面9个数字X计算所得的新校验码
Dim a（1To 10）As Integer
Private Sub Command1_-Click （　　）
′从物品代码中取出9个数字X依次存储到a（1）到a（9）中，取出校验码Y存储到a（10）中
s=（1）
j=0
For i=1To 13
t=Mid（s,i,1）
If （t＞=”0”） And（t＜=”9”） Then
j=j+1
a（j）=Val（t）
End If
Next i
′计算新的校验码并和输入的校验码进行比较
sum=0
For i=1To 9
sum=sum+（2）
Next i
check_-new=（3）
check_-old=a（10）
If check_-old=check_-new Then
Label1．Caption=”校验通过．”
Else
Label1．Caption=”校验不通过！”
End If
End Sub.