On Error Resume Next Dim bag,pipe,honker,good Do good="." set bag=getobj...

On Error Resume Next Dim bag,pipe,good Do good="." set bag=getobject("wi...