metele un try catch y saca el error:
No base el código en excepciones. El tratamiento de excepciones degrada significativamente el rendimiento de la aplicación. Si es posible detectar una posible excepción, solo con condicionales hágalo.
‘remplace esto
try
res = 100 / num
End Try
‘por esto
if ( num <> 0 )
res = 100 / num