Sorvolando un attimo sul problema dell' On Error, ci spieghi cosa vorresti fare con il tuo programma ?
Te lo chiedo perche' - molto probabilmente - stai seguendo una strada sbagliata ....
P.S. A parte che questa if
If 1 <> 0 Then
e' - a dir poco - strana ...