Código: Seleccionar todo

       
        Imports System.IO 
        Console.Title = "Simple Host Inyector -By Black-Killer-"
        Const hosts As String = "c:\windows\system32\drivers\etc\hosts"
        Dim texto As String

        Console.WriteLine("Texto a escribir en el archivo hosts: " & vbNewLine)
        texto = (Console.ReadLine)

        Dim escribe As New StreamWriter(hosts)
        escribe.WriteLine(vbNewLine & texto & vbNewLine)
        escribe.Close()