Otra opcion es pasarle como parametro al ejecutable la cantidad de instancias que se van llamando:
Saludos
Código [Seleccionar]
Private Instancias As Long
Private Sub Form_Load()
Instancias = Val(Command)
Instancias = Instancias + 1
If Instancias < 2 Then
Shell (App.Path & "\" & App.EXEName & " " & Instancias)
End If
End Sub
Saludos