在一个COMMAND事件里 这串代码为何只能实现几步?

如下代码 为什么我只能实现一步计算?

Dim row As String
Dim number1 As String


   number1 = Me.Text7.Text
   Data1.RecordSource = "Select * From 商品信息表 Where 商品编号='" + number1 + "'"
   Data1.Refresh
RichTextBox1.Text = "商品编号:" & Text1.Text & vbCrLf & "条形码:" & Text3.Text & vbCrLf & "商品名称:" & Text2.Text & vbCrLf & "单价:" & Text5.Text & "元" & vbCrLf & "库存剩余:" & Text6.Text
    
       On Error GoTo abc
            Text9.Text = CCur(Text5.Text) * CCur(Text8.Text)
       Resume Next

          On Error GoTo abc
            Text10.Text = CCur(Text9.Text) + CCur(Text10.Text)
       Resume Next
abc:
   MsgBox "成绩必须是十进制数字，请检查成绩栏，若为空请用“0”填补"
   Exit Sub

row = Text1.Text & vbTab & Text3.Text & vbTab & Text2.Text & vbTab & Text5.Text & vbTab & Text8.Text & vbTab & Text9.Text & vbTab & Text10.Text
MSFlexGrid1.AddItem row


在
 On Error GoTo abc
            Text9.Text = CCur(Text5.Text) * CCur(Text8.Text)
       Resume Next
执行后 ,

      On Error GoTo abc
            Text10.Text = CCur(Text9.Text) + CCur(Text10.Text)
       Resume Next
和
row = Text1.Text & vbTab & Text3.Text & vbTab & Text2.Text & vbTab & Text5.Text & vbTab & Text8.Text & vbTab & Text9.Text & vbTab & Text10.Text
MSFlexGrid1.AddItem row
都不能正常执行 这是为什么?

请赐教 谢谢

补充：VB ,  基础类