Xin hỏi về chạy và thoát khỏi sub theo điều kiện.

Dim Run2 As Boolean
Sub GPE3()
 GPE1
 If Run2 Then GPE2
End Sub

Sub GPE1
 If MmM = 9 then
     Exit Sub
 Else
   ' . . . . . .  
 . . . . . . . . . '
 Run2 = True
 End If
End Sub

Option Explicit
 Dim A35 As Boolean
 
 Sub GPE3()
  GPE1
  If A35 Then GPE2
 End Sub

[B] Sub GPE1()[/B]
  Dim jJ As Byte
  
  Randomize
  jJ = Int(30 + 9 * Rnd())
  If jJ < 35 Then
      MsgBox jJ, , "GPE1"
  Else
   A35 = Not A35
  End If
 [B]End Sub[/B]

 Sub GPE2()
   MsgBox A35, , "GPE2"
 End Sub