修改ie地址栏文字

我想再ie的地址文件修改之前更改为其它文字Private Sub m_objIE_StatusTextChange(ByVal Text As String)If InStr(m_objIE.statusText, "dest") <> 0 Then    m_objIE.statusText = "完成"
        
    
End If
End Sub但是这些代码似乎无效,更改完以后又变回原来了"等待...."
有时候还会堆栈溢出,有没有更好的办法