Sub FirstSub
Log("FirstSub started")
SecondSub
Wait For SecondSub_Complete
Log("FirstSub completed")
End Sub
Sub SecondSub
Log("SecondSub started")
Do Until mysemaphore ....
'....
Loop
Log("SecondSub completed")
CallSubDelayed(Me, "SecondSub_Complete")
End Sub