小明用VB编写计算20位以内2个正整数相减程序．程序功能如下：在文本框Text1中输入被减数，在文本框Text2中输入减数，单击“计算”按钮Comnand1，将相减的结果输出到文本框Text3中．运行界面如图所示．
实现上述功能的VB程序如下，但加框处代码有错，请改正．
Private Sub Command1_Click （　　）
Dim c（1To 50）As Integer
Dim jiewei As Integer'存储向高位借位
Dim ad As Integer,bd As Integer'存储被减数和减数的每一位值
Dim e As Integer,alen As Integer,blen As Integer
Dim a As String,b As String,s As String
a=Text1．Text：b=Text2．Text
'将大数存储在a中
If Len（a）＜Len（b） Then
s=a：a=b：b=s
ElseIf Len（a）=Len（b） Then
ad=Val（Mid（a,1，1））
bd=Val（Mid（b,1，1））
If ad＜bd Then
s=a：a=b：b=s
End If
End If
alen=Len（a）：blen=Len（b）

For i=1To alen
If i＜=blen Then
ad=Val（Mid（a,alen-i+1，1））
bd=Val（Mid（b,blen-i+1，1））
e=ad+10-bd-1+jiewei
Else
ad=Mid（a,alen-i+1，1）
e=ad+10+jiewei-1
End If

jiewei=e\10
Next i
If c（alen）＜＞0Then s=Str（c（alen））
For i=alen-1To 1Step-1
s=s+CStr（c（i））
Next i
Text3．Text=s
End Sub.