Ho provato eliminando "on error resume next" e l' errore indicato è questo:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente

Io veramente non sò cosa fare