Sbagliavo nella condizione if nidificata
prima era così e il tutto funzionava:
If var3>0 Then
response=MsgBox ("CONTINUARE IL LAVORO?" , 1 , "ATTENZIONE" )
If response =1 Then GoTo 6 Else exit sub
End If
Poi mi serviva un'altra azione in più e quando modificavo queste righe di codice nella seconda condizione IF tralasciavo un end if come riportato sotto.
If var3>0 Then
response=MsgBox ("CONTINUARE IL LAVORO?" , 1 , "ATTENZIONE" )
If response =1 Then
GoTo 6
Else
SetVar(1000, 0)
exit sub
End If
Un errore banale ma non riuscivo a vederlo anche perch'è questo compilatore non me lo indicava bene.
Grazie di nuovo ed alla prossima richiesta di aiuto