Gli unici così da postare sono:

...Dim e = c\d...
...If(e = 0) Then...