如何在excel vba中使用if then replace？给定错误13

If Err.Number = 13 Then

    Dim str As String
    str = "给定错误13"
    str = Replace(str, "错误", "正确")

Sub ReplaceError13()
    On Error Resume Next
    Dim str As String
    str = "给定错误13"
    
    If Err.Number = 13 Then
        str = Replace(str, "错误", "正确")
    End If
    
    MsgBox str
End Sub