大家帮我看一个vb小问题~

Dim sum As String

sum = InputBox("発注数输入", "数量订正", , 100, 100)

DisplayData.SetFocus

If Err.Number <> 0 Then

MsgBox "数据错误"

End If

If sum = "" Then

rstAcc.Close

Exit Sub

End If

If IsNumeric(sum) <> True Then

sum = MsgBox("必须是数字输入", , "")

sum = InputBox("请输入数字：", "数量订正")

Else

End If

j = DisplayData.RowSel

rstAcc.MoveFirst

rstAcc.Move j - 1

If IsNumeric(sum) Then

On Error Resume Next

If sum > rstAcc!maxorder Then

If MsgBox("最大数是999", vbOKOnly, "") Then

End If

rstAcc.Close

Exit Sub

End If

If sum < rstAcc!minorder Then

MsgBox "最小数是"

rstAcc.Close

Exit Sub

End If

If sum Mod rstAcc!PurchUnits <> 0 Then

MsgBox "判断条件"

rstAcc.Close

Exit Sub

End If

If sum Mod rstAcc!stockUnits <> 0 Then

MsgBox "判断条件"

rstAcc.Close

Exit Sub

End If

If Err.Number <> 0 Then

MsgBox "数据错误"

rstAcc.Close

Exit Sub

End If

我是一个vb刚刚接触的新手 请问我这样做一个数据输入后的判断思想对吗？ 目前出现的问题是 不能判断最大值 999 就是我输入一个数据（必须是数字）后 能判断后面3个 第一个不能判断 优先权突然转移到是否是倍数关系 所以提出疑问 望高手指点一下 谢谢

If MsgBox("最大数是999", vbOKOnly, "") Then 这句有错