Private FirstActionEnabled as Boolean
Sub RunFirstAction()
FirstActionEnabled = True
Do While FirstActionEnabled
' get some data from websocket
' post some data to another external server
Sleep(5000)
' get some data from the external server
End While
End Sub
Sub StopFirstAction()
FirstActionEnabled = False
End Sub