麻烦各位帮忙分析下，这里为什么提示“应用程序定义或对象定义错误”

Private Sub CommandButton1_Click()
Dim value As Integer
If Form1.TextBox1.Text = "" Or Form1.TextBox2.Text = "" Then
MsgBox "请填写完整的序列号。", , "输入错误！"
value = MsgBox("请填写完整的序列号。", , "输入错误！")

 If value = 1 Then

 Exit Sub

 End If

ElseIf IsNumeric(Form1.TextBox2.Text) = False Then
MsgBox "流水号只能填写数字，请重新输入", , "输入错误！"
value = MsgBox("流水号只能填写数字，请重新输入", , "输入错误！")

 If value = 1 Then

 Exit Sub

 End If

Else
Dim i%
Dim j%
Dim m As String
Dim n%
Dim t%

m = Form1.TextBox1.Text
n = Form1.TextBox2.Text


For j = 1 To 6 Step 2
For i = 1 To 297

t = i - 1
If t = 0 And j = 1 Then
Cells(i, j) = m & n

ElseIf t = 0 And j = 3 Then
n = Right(Cells(i + 10, 1), 4) + 1
Cells(i, j) = m & n

ElseIf t = 0 And j = 5 Then
n = Right(Cells(i + 10, 3), 4) + 1
Cells(i, j) = m & n

ElseIf t Mod 11 = 0 And j = 1 Then
n = Right(Cells(i - 1, 1), 4) + 23
Cells(i, j) = m & n


ElseIf t Mod 11 = 0 And j = 3 Then
n = Right(Cells(i + 10, 1), 4) + 23
Cells(i, j) = m & n


ElseIf t Mod 11 = 0 And j = 5 Then
n = Right(Cells(i + 10, 3), 4) + 23
Cells(i, j) = m & n

Else
Cells(i, j) = m & n

End If

n = n + 1
Next
Next

End If

Unload Form1

End Sub