It's a very bad practice to use goto in programming. It is strongly frowned upon by professional programmers, and actually forbidden in business code. Instead, you can use "exit sub" to replace that goto statement. Even that (since it is just a single if statement and nothing else) isn't even necessary, as the code will simply end once the if statement is completed.

Not end sub.... exit sub...

Consider this code:

visualbasic Syntax (Toggle Plain Text)

Public bc As Boolean
Dim x As Long
 
Private Sub Command1_Click()
     If bc Then
          MsgBox x
          GoTo EndHere
     Else
          Call exec
     End If
EndHere:
End Sub
 
Private Sub Command2_Click()
     bc = True
     Call Command1_Click
End Sub
 
Private Sub Form_Load()
     bc = False
End Sub
 
Public Sub exec()
     While 1 = 1
          x = x + 10
          Label1 = x
          DoEvents
     Wend
End Sub

Public bc As Boolean Dim x As Long Private Sub Command1_Click() If bc Then MsgBox x GoTo EndHere Else Call exec End If EndHere: End Sub Private Sub Command2_Click() bc = True Call Command1_Click End Sub Private Sub Form_Load() bc = False End Sub Public Sub exec() While 1 = 1 x = x + 10 Label1 = x DoEvents Wend End Sub

now here, i want to stop the execution of a sub-procedure Public Sub exec() which is called by another sub-procedure Private Sub Command1_Click() but without changing or adding any code into Public Sub exec().
even after applying all ur helps it did not work as needed. But all your help was valuable.

How to do it?

(Forgive me for not providing the code earlier.)