Código que junto o arquivo original (Inglês) e traduzido

 Dim oArquivo As System.IO.File
    Dim oEscrever As System.IO.StreamWriter


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fileContents As String
        Dim fileContents2 As String
        fileContents = My.Computer.FileSystem.ReadAllText("C:\tmp\arquivo1.txt")
        fileContents2 = My.Computer.FileSystem.ReadAllText("C:\tmp\arquivo1.txt")
        oEscrever = IO.File.CreateText("c:\tmp\arquivonovo.txt")
        Dim fluxoTexto1, fluxotexto2 As IO.StreamReader
        Dim linhaTexto1, linhatexto2 As String
        Dim arquivo1 As String = "C:\tmp\arquivo1.txt"
        Dim arquivo2 As String = "c:\tmp\arquivo2.txt"

        fluxoTexto1 = New IO.StreamReader(arquivo1)
        fluxotexto2 = New IO.StreamReader(arquivo2)
        linhaTexto1 = fluxoTexto1.ReadLine
        linhatexto2 = fluxotexto2.ReadLine
        Dim contador1 As Double = 0

        While contador1 < 2794
            'txtLinhas.Text &= linhaTexto & vbCrLf
            oEscrever.WriteLine("En:" & linhaTexto1)
            oEscrever.WriteLine("Br:" & linhatexto2)
            linhaTexto1 = fluxoTexto1.ReadLine
            linhatexto2 = fluxotexto2.ReadLine
            contador1 += 1
        End While
        fluxoTexto1.Close()
        fluxotexto2.Close()
        MsgBox("ok")
    End Sub