VBS: Организовать последовательный переход по ссылкам

List = "C:\file.txt" ' список ссылок
Sec  = 30 ' секундный интервал на открытие

Dim WSH : Set WSH = CreateObject("WScript.Shell")
P = WSH.RegRead("HKEY_CLASSES_ROOT\http\shell\open\command\")
Path = Left(P, InstrRev(P, """ "))

With CreateObject("Scripting.FileSystemObject")
  If Not .FileExists(List) Then MsgBox "Файл " & List & " не существует!" : WScript.Quit : End if
  Mass = Filter(Split(.OpenTextFile(List).ReadAll, vbNewLine), ".")
  Max  = Ubound(Mass) + 2
  For Each F in Mass
    F = Trim(F) : c = c + 1
    If Left(F, 4) <> "http" Then F = "http://" & F
    If c > 1 Then
      WScript.Sleep 1000 * Sec : WSH.Exec(Path & " " & F)
      Do Until A : A = WSH.AppActivate(" " & .GetBaseName(Path)) : Loop
      WScript.Sleep 100 : If c < Max Then WSH.SendKeys "^+{TAB}^{F4}"
    Else WSH.Exec(Path & " " & F)
    End If
  Next
End With : Set WSH = Nothing