Visual Basic - Borrar saltos de línea

Private Function Archivo_a_Matriz(ByVal Path As String) As String()

    On Error GoTo errSub

    Dim Array_Datos As String

    Dim F_File As Integer

    Dim Split_Array() As String

    ' Para el número libre de archivo

    F_File = FreeFile

    ' Abre el archivo en modo binario de lectura

    Open Path For Binary As #F_File

    ' crea un buffer con la cantidad de caracteres - bytes necesarios

    Array_Datos = String(LOF(F_File), 0)

    ' Almacena en el buffer todo el archivo

    Get #F_File, , Array_Datos

    ' Cierra el archivo

    Close #F_File

    ' Elimina el último salto de carro, si es que hay ( caracter VbCrlf )

    Do Until (Right$(Array_Datos, 2) <> vbCrLf)

       Array_Datos = Mid$(Array_Datos, 1, Len(Array_Datos) - 2)

    Loop

    ' Obtenemos con split los datos del buffer, en un array

    Split_Array = Split(Array_Datos, vbCrLf)

    ' retorna el array a la función

    Archivo_a_Matriz = Split_Array

    Exit Function

    ' --- error

errSub:

    ' En caso de error devuelve un array vacío

    ReDim Archivo_a_Matriz(0)

End Function

Sub Normaliza_Fuente()

    Dim Array_Datos() As String

    Dim i As Integer

    Dim Name As String

    Screen.MousePointer = 11

    Array_Datos = Archivo_a_Matriz(SelectDir & "\" & SelectFile)

    ' Creo un archivo temporal para guardar los datos

    Open SelectDir & "\" & "fuente.tmp" For Output As #1

    For i = LBound(Array_Datos) To UBound(Array_Datos)

'---    Print #1, Array_Datos(i)

        Print #1, rtrim$(Array_Datos(i)); " ";

    Next

    Close #1

    File = SelectDir & "\" & SelectFile.FileName

    Kill File

    Name SelectDir & "\" & "fuente.tmp" As SelectDir & "\" & SelectFile

    SelectFile.Refresh

    Screen.MousePointer = 0

    End

End Sub

Sub Normaliza_2()

    Dim F_Lee As Integer, F_Gra As Integer, Reg As String

    F_Lee = FreeFile: Open SelectDir & "\" & SelectFile For Binary As #F_Lee

    F_Gra = FreeFile: Open SelectDir & "\Temp_0001.tmp" For Output As #F_Gra

    While Not EOF(F_Lee)

        Input #F_Lee, Reg

        Print #F_Gra, RTrim$(Reg); " ";

    Wend

    Close #F_Lee, #F_Gra

    Kill = SelectDir & "\" & SelectFile.FileName

    Name SelectDir & "\Temp_0001.tmp" As SelectDir & "\" & SelectFile

    SelectFile.Refresh

    Screen.MousePointer = 0

    End

End Sub

Sub Normaliza_2()

    Dim F_Lee As Integer, F_Gra As Integer, Reg As String, a as Long, Tex as Integer

    F_Lee = FreeFile: Open SelectDir & "\" & SelectFile For Binary As #F_Lee

    F_Gra = FreeFile: Open SelectDir & "\Temp_0001.tmp" For Output As #F_Gra    

    While Not EOF(F_Lee)

        Input #F_Lee, Reg

        For a = 1 To Len(Reg)

            Tex = Asc(Mid$(Reg, a, 1))

            If Tex > 31 Then Print #F_Gra, Chr$(Tex);

            If Tex < 32 Then Print #F_Gra, Chr$(13); Chr$(10);

        Next

    Wend

    Close #F_Lee, #F_Gra

End Sub

Private Sub Command1_Click()

    Dim F_Lee As Integer, F_Gra As Integer, Reg As String,  Tex As Integer

    F_Lee = FreeFile: Open SelectDir & "\" & SelectFile For Binary As #F_Lee

    F_Gra = FreeFile: Open SelectDir & "\Temp_0001.tmp" For Output As #F_Gra

    Reg$ = " "

    While Not EOF(F_Lee)

        Get #F_Lee, , Reg

        Tex = Asc(Reg)

        If Tex > 31 Then Print #F_Gra, Chr$(Tex);

        If Tex = 10 Then Print #F_Gra, Chr$(13); Chr$(10);

    Wend

    Close #F_Lee, #F_Gra

    Unload Me

End Sub