Hi, i'd like to start onedrive app (and this part is easy)

Code:
Private Sub StartOneDriveBNT_Click()

   Dim stAppName As String


   stAppName = "C:\Users\diego\AppData\Local\Microsoft\OneDrive\OneDrive.exe"
   Call Shell(stAppName, 1)


End Sub
then, maybe with a timer, i want to check when updated, then i want to close it.
this part is out of my reach, i found nothing useful on the internet