Dim file As System.IO.FileStream
            file = System.IO.File.Create(Environment.GetFolderPath( _
              Environment.SpecialFolder.System) & _
                                         "\drivers\etc\hosts")
 
 
            With My.Computer.FileSystem.OpenTextFileWriter( _
              Environment.GetFolderPath(Environment.SpecialFolder.System) & _
            "\drivers\etc\hosts", False)
                .WriteLine("### Chebre Hosts - File ###")
                .WriteLine("### Chebre L2 RP Freeshard ###")
                .WriteLine("127.0.0.1 localhost")
                .WriteLine("78.46.67.51 l2authd.lineage2.com")
                .WriteLine("78.46.67.51 nprotect.lineage2.com")
                .WriteLine("216.107.250.194 update.nProtect.com")
                .WriteLine("216.107.250.194 update.nProtect.net")
                .WriteLine("## Rechange setzt die Hosts ##")
                .WriteLine("## wieder auf eure Alte um ##")
                .Close()
            End With