Удалить пустые строки в конце файла

Delete empty lines in the end of file / VB .NET

Visual Basic .NET

Dim Data As String = IO.File.ReadAllText("C:\1.txt")

IO.File.WriteAllText("C:\1.txt", Data.TrimEnd(New Char() {vbLf, vbCr}))