在 Visual Basic 6 中，On Error GoTo 语句用于处理运行时错误，通常会将其放置在子过程或函数的开始处，从而在出现错误时跳转到指定的错误处理程序。如果只希望在特定的条件下捕获错误并进行处理，可以将 On Error GoTo 语句放置在一个 IF 块中，并在 IF 块结束后恢复默认的错误处理方式。以下是一个示例代码：

vb

Sub Test()

    Dim a As Integer, b As Integer

    a = 1

    b = 0

    If a > 0 Then

        On Error GoTo ErrorHandler

        MsgBox "a 大于 0"

        b = 1 / b  ' 除以零，会产生运行时错误

        On Error GoTo 0  ' 恢复默认的错误处理方式

    End If

    MsgBox "程序正常结束"

    Exit Sub

ErrorHandler:

    MsgBox "发生错误：" & Err.Description

    Resume Next  ' 忽略当前错误并继续执行下一条语句

End Sub

在上面的示例中，我们首先定义了两个整数变量 a 和 b，然后使用 IF 块判断 a 是否大于 0。当 a 大于 0 时，会进入该块中的代码，并设置 On Error GoTo ErrorHandler，以便捕获运行时错误并跳转到错误处理程序。在 IF 块结束时，我们使用 On Error GoTo 0 恢复默认的错误处理方式。这样，只有在 IF 块内部执行的代码会受到异常处理机制的影响，而在 IF 块之外执行的代码则不会。

需要注意的是，在恢复默认的错误处理方式之前，必须确保所有可能出现异常的语句都已经执行完毕，否则可能会导致未处理的运行时错误。此外，还应该避免过多地使用 On Error 语句，以免掩盖潜在的错误。