VB 2010 Progress Bar.

Your way helped me out a lot.  But the only problem is that it is UTF-8.  How do I make it to be ANSI?  If it is UTF-8, and I have @Echo Off at the top, it still shows the current directories and commands.  That is why I need it to be ANSI, just if anyone wanted to know.  So does anyone know how to do that?

Here is the code.

    MkvDFile = My.Computer.FileSystem.OpenTextFileWriter(Environ$("SystemDrive") & "\Videos\Temp\Jobs\MkvMakeFileD.bat", True)
    MkvDFile.WriteLine("@Echo Off")
    MkvDFile.WriteLine("Title Metroidn1f Encoder - Encoding Video")
    MkvDFile.WriteLine("CLS")
    MkvDFile.WriteLine("Color 0B")
    MkvDFile.WriteLine("::~*")
    MkvDFile.WriteLine("Rem Made With Metroidn1f Encoder")
    MkvDFile.WriteLine("Rem If You Are Reading This File, Do NOT Edit This Batch File.")
    MkvDFile.WriteLine("::~*")
    MkvDFile.WriteLine("mkvextract tracks """ & TrkInptMkvD & """ " & VIDMkvD & ":""" & VOtPtMkvD & """ " & AIDMkvD & ":""" & AOtPtMkvD & """")
    MkvDFile.WriteLine("Echo.")
    MkvDFile.WriteLine("Echo Encoding Finished.")
    MkvDFile.WriteLine("Echo Press Any Key On The Keyboard To Continue...")
    MkvDFile.WriteLine("Pause >Nul")
    MkvDFile.Close()