VB中On Error 问题

Private Sub Command1_Click()
On Error GoTo Mistake
If Option1 Then '就一个Option1 系统默认理解 Option1.Value = ture 语句
Shell Text1.Text, 1
Else
If Option2 Then
Shell Text1.Text, vbMaximizedFocus
Else
If Option3 Then
Shell Text1.Text, vbMinimizedFocus
End If
End If
End If
Mistake:
MsgBox "错误，不能运行该文件或地址错误！"
End sub

我就想问， 我一按按钮（就是运行这段过程） ， 必定报错
即以下这段：
MsgBox "错误，不能运行该文件或地址错误！"
。

到底怎么回事。

还有。。

Private Sub Command1_Click()
On Error GoTo Mistake
If Option1 Then '就一个Option1 系统默认理解 Option1.Value = ture 语句
Shell Text1.Text, 1
Else
If Option2 Then
Shell Text1.Text, vbMaximizedFocus
Else
If Option3 Then
Shell Text1.Text, vbMinimizedFocus
End If
End If
End If
Mistake:
MsgBox "错误，不能运行该文件或地址错误！"
Resume Next
End sub

我在End Sub 上加上了 Resume Next
加上这句后。 按一下按钮就报错3次。

怎么回事。 求回答！

End If
Exit Sub '请加上这句即可,不然会往下执行（报错）
Mistake:
MsgBox "错误，不能运行该文件或地址错误！"
Resume Next
End sub

End If Mistake: -------------> End If Exit sub '<-----加上这句！！！！！ Mistake:

Private Sub Command1_Click() On Error GoTo Mistake If Option1 Then '就一个Option1 系统默认理解 Option1.Value = ture 语句 Shell Text1.Text, 1 Else If Option2 Then Shell Text1.Text, vbMaximizedFocus Else If Option3 Then Shell Text1.Text, vbMinimizedFocus End If End If End If goto goright '---------------------要加跳转 Mistake: MsgBox "错误，不能运行该文件或地址错误！" exit sub goright: End sub

Private Sub Command1_Click() On Error GoTo err404: 'goto语句,注意格式带冒号 Command1.Caption = "你点击了" Exit Sub '注意这边有个exit sub err404: '注意格式带冒号 MsgBox "语法有误", vbInformation, "" Exit Sub '注意这边有个exit sub End Sub 参考这个写法,应该错不了..

On Error GoTo Mistake 思路没错 If Option1 Then 这样的写法似乎错了， 你自己摸索些纠正。 也有很小的可能错在 shell 这一行（我不太懂，你搜索一下教程吧）