容错处理应该如何写

容错处理应该怎么写？在线等
For   i   =   1   To   UBound(gAS)
                        If   gAS(i).connected   =   True   Then
                                On   Error   GoTo   ERROR_HANDLE
                                        sockserver(i).SendData   "strSendString "
                                        DoEvents
ERROR_HANDLE:
                        End   If
                Next

这个语句的容错处理应该怎么写？
如果碰到sockserver(i)在发送数据的时候报错，就自动跳到下一个循环，就是执行i+1的语句

[解决办法]
sub ...

For i = 1 To UBound(gAS)
If gAS(i).connected = True Then
On Error GoTo ERROR_HANDLE
sockserver(i).SendData "strSendString "
DoEvents
End If
Next

exit sub

ERROR_HANDLE:

on error goto 0
resume next

end sub
[解决办法]
直接on error resume next 就好了