Ще трябва да вкараш малко API функции, за да разбереш кога другия процес е прключил:

Dim ProcessID As Long

Dim hProcess  As Long



    ProcessID = Shell( "форматиране, бла-бла", 1)

    hProcess = OpenProcess(SYNCHRONIZE, 0, ProcessID)

    If hProcess <> 0 Then

        WaitForSingleObject hProcess, INFINITE

        CloseHandle hProcess

    End If