我用Call语句调用子过程，该子过程内容是一系列条件判断。理论上应该是子过程内所有判断都为真后，执行下一句。但现在的问题是，程序只执行子过程中的第一个判断语句后就开始执行子过程外的语句。代码如下，俺是新手，哪位高手给指点一下

Public Sub Command1_Click() '程序主体
Call CheckInput
Call CreatExcel
End Sub

Public Sub CheckInput() '需要调用的子过程

If Combo3.Text = "" Then
MsgBox "请选择产品类型", vbOKOnly
ElseIf Val(Text2.Text) < 50 Or Val(Text2.Text) > 460 Then
MsgBox "PCB板范围在510mm×460mm之间", vbOKOnly
ElseIf Val(Text3.Text) < 50 Or Val(Text3.Text) > 510 Then
MsgBox "PCB板范围在510mm×460mm之间", vbOKOnly
ElseIf Val(Text4.Text) < 10 Or Val(Text4.Text) > 10000 Then
MsgBox "点数范围在10～10000之间", vbOKOnly
ElseIf Val(Text5.Text) < 1 Or Val(Text5.Text) > 24 Then
MsgBox "日工作时间在1～24小时之间", vbOKOnly
ElseIf Val(Text6.Text) < 1 Or Val(Text6.Text) > 31 Then
MsgBox "月工作时间在1～31天之间", vbOKOnly
ElseIf Val(Text7.Text) < 1 Or Val(Text7.Text) > 100 Then
MsgBox "效率在1～100%之间", vbOKOnly
ElseIf Val(Text8.Text) < 1 Or Val(Text8.Text) > 50 Then
MsgBox "拼板数量在1～50块之间", vbOKOnly
ElseIf Combo4(1).Text = "" And Combo4(2).Text = "" And Combo4(2).Text = "" And Combo4(3).Text = "" And _
Combo4(4).Text = "" And Combo4(5).Text = "" And Combo4(6).Text = "" Then
MsgBox "请选择设备", vbOKOnly
ElseIf Combo4(1).Text = "None" And Combo4(2).Text = "None" And Combo4(3).Text = "None" And Combo4(4).Text = "None" And _
Combo4(5).Text = "None" And Combo4(6).Text = "None" Then
MsgBox "请选择设备", vbOKOnly
End If

End Sub

给个答案啊，兄弟们！

NND没人会还是没人愿意说