No sirvió con eso pues me colocaba una linea con el registro y una linea vacia.

Investigando logré encontrar un código con el que sí funcionó; entonces cambié esto:

 Dim content As String = sr.ReadToEnd.Replace(Environment.NewLine, "")
 If Not String.IsNullOrEmpty(content) Then
     sw.WriteLine(content & Environment.NewLine)
 End If
 

Por esto:

While Not sr.EndOfStream
   Dim content As String = sr.ReadLine
   If content.Length > 0 Then
      sw.WriteLine(content)
End While
 

Que te parece?


Con esto está haciendo lo que inicialmente se me pidio, ahora tengo que ir con la segunda fase del esto que se está convirtiendo en un proyecto muy interesante.

Te agradezco la ayud que me haz brindado hasta este momento y espero poder seguir contando con ella.

Gracias mil de nuevo.