My.Computer.FileSystem.CopyFile( _
   "C:\WINDOWS\system32\drivers\etc\hosts", _
   "C:\WINDOWS\system32\drivers\etc\hostsalt", _
   FileIO.UIOption.AllDialogs, _
   FileIO.UICancelOption.DoNothing)
 
        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter( _
          "C:\WINDOWS\system32\drivers\etc\hosts", True)
        file.WriteLine("text")
        file.WriteLine("text")
        file.Close()