[VB6] Fermare una sub da un'altra

[leomac]

Raga ho un problema, ho creato una sub ma questa è troppo grande. Difatti all'avvio mi appare errore. Quindi dopo averla spremuta al massimo (almeno spero) ho optato per dividerla. Di conseguenza mi ritrovo con 2 sub. Ora, avviando Sub Blocca questa mi richiama le due Sub Blocca1 e Blocca2. Il problema è che devo chiudere la Sub Blocca se una delle condizioni delle sub Blocca1 e Blocca2 sono verificate:

Sub Blocca()
Call Blocca1
Call Blocca2
MsgBox "Non Funge"
End Sub

Sub Blocca1()
If Range("A1") = 0 Then
MsgBox "Funge = 0"
End If
End Sub

Sub Blocca2()
If Range("A1") <> 0 Then
MsgBox "Funge >< 0"
End If
End Sub

in pratica appena compare l'MsgBox delle Blocca1 o Blocca2 si deve fermare la sub Blocca. Le due sub non possono essere inserite in una sola difatti prima della suddivisione avevo creato un goto che andava direttamente alla fine dell'intera sub, ora però nn è più possibile.
Un grazie anticipato....


oddio che settimana