[VB6] Fermare una sub da un'altra

[Pirelli72]

Cosi?

Sub Blocca()
If Blocca1 = False Then Exit Sub
If Blocca2 = False Then Exit Sub
MsgBox "Non Funge"
End Sub

Function Blocca1() As Boolean
If Range("A1") = 0 Then
MsgBox "Funge = 0"
Else
Blocca1 = True
End If
End Function

Function Blocca2() As Boolean
If Range("A1") <> 0 Then
MsgBox "Funge >< 0"
Else
Blocca2 = True
End If
End Function