Обновление хост-файла - VB

Формулировка задачи:

Добрый день, товарищи. Немного предисловия. Пишу программку для отучения себя от ВКонтакте. Удалиться полностью не могу по некоторым обстоятельствам, но это к делу отношения не имеет. В чем суть: прогу отчитывает заданный интервал времени в сутки и делает следующее: Добавляет в файл hosts строку:

127.0.0.1 vk.com

Сбрасываю кеш ДНС

Shell("ipconfig /flushdns", AppWinStyle.Hide)

и на этом все. Собственно проблема: контакт блокируется только после выключения-включения браузера (что очевидно). Подскажи пожалуйста, как-нибудь можно эту проблему решить?

Решение задачи: «Обновление хост-файла»

textual
                            Листинг программы 
                        

                            Const VK = "127.0.0.1 vk.com"
Const HOSTS = "C:\WINDOWS\system32\drivers\etc\hosts"
Dim s
With CreateObject("Scripting.FileSystemObject")
  s = .OpenTextFile(HOSTS).ReadAll
  If InStr(s, VK) = 0 Then
    With .OpenTextFile(HOSTS, 8)
      If Right(s, 2) <> vbCrLf Then .WriteLine
      .WriteLine VK
    End With
  End If
End With
                        