'ぁゃιぃPrxChk
On ERROR Resume Next

prx = InputBox("チェックしたいプロクシを入力" & vbCR &_
"192.0.0.1:80のような形式で入力してください","(*'-')/ぁゃιぃPrxChk","mucc.nlnet.melfort.sk.ca:80")
Set ObjFS = CreateObject("Scripting.FileSystemObject")
Set ObjPrxText = ObjFS.OpenTextFile("prx.txt") 'prx.txtをOPEN
PrxText = ObjPrxText.ReadAll     'prx.txtの内容をすべて読みとって変数"PrxText"にまわす

If InStrRev(PrxText,prx)<>0 Then     '入力された串がかぶってないかprx.txtの内容を検索
 MsgBox("すでにprx.txtに書き込まれている(ﾟДﾟ)ｸﾜｯ")
Else
 Set WSHShell = WScript.CreateObject("WScript.Shell")
 WSHShell.Run "browser.exe http://www.yahoo.co.jp/-_-prx"     'browser.exeでYahoo!を開く もちろん串経由で
 GetLog = MsgBox("生きてた？","4","はいを選ぶとLOGに出力")
  If GetLog = 6 Then 'はいを選んだ場合の処理
   If ObjFS.FileExists("prx.txt") Then     'prx.txtが存在する場合
   Set ObjText = ObjFS.GetFile("prx.txt")
   Set ObjPrxText = ObjText.OpenAsTextStream(8,0)
   ObjPrxText.WriteLine(prx)     'ファイルの末尾に変数prxの内容を書き込む
   ObjPrxText.Close
  Else     'prx.txtが存在しない場合
   Set ObjFS = CreateObject("Scripting.FileSystemObject")
   Set ObjPrx = ObjFS.CreateTextFile("prx.txt")     'prx.txtを新規作成
   ObjPrx.WriteLine(prx)     'prx.txtにprxの内容を書き込む
   ObjPrx.Close
  End If
 Else GetLog = 7 'いいえを選んだ場合の処理
 MsgBox("残念・・・・・・")
 End If
End If

紛失したと思ったらぁゃιぃのログにあったぁヽ(´ー｀)ﾉ
幸せ