How to handle particular Runtime error?

Reporter.Filter=rfDisableAll
On Error Resume next
Value= Swfwindow("Window").SwfEditor("Editor").GetROProperty("text")
StartTime=now
While Err.Number=-2147220990 and Datediff("S",StartTime,Now )<50
Swfwindow("Window").SwfEditor("Editor").Type micF7
Value= Swfwindow("Window").SwfEditor("Editor").GetROProperty("text")'
msgbox err.number
Wend
Value= Swfwindow("Window").SwfEditor("Editor").GetROProperty("text")
On Error Goto 0
Reporter.Filter=rfEnableAll