Range.Find未找到任何内容后，VBA返回错误

On Error Resume Next
Set result = Range("A1:A10").Find("Value")
On Error GoTo 0

If result Is Nothing Then
    MsgBox "未找到任何内容"
Else
    MsgBox "找到了内容：" & result.Value
End If

Set searchRange = Range("A1:A10")
Set result = searchRange.Find("Value")

If result Is Nothing Then
    MsgBox "未找到任何内容"
Else
    MsgBox "找到了内容：" & result.Value
End If

Set searchRange = Range("A1:A10")
Set result = searchRange.Find("Value")

If result Is Nothing Then
    MsgBox "未找到任何内容"
Else
    MsgBox "找到了内容：" & result.Value
    Do
        Set result = searchRange.FindNext(result)
        If result Is Nothing Then Exit Do
        MsgBox "找到了下一个匹配项：" & result.Value
    Loop
End If