Exact help is difficult - since you don't really specify how you are reading the file. However, I assume you are reading it line-by-line with a StreamReader of some form.
Don't.
Read the whole file with File.ReadAllText into a string.
Trim off the newlines at the end with String.TrimEnd
Convert to individual lines with Split:
Dim text As String = File.ReadAllText("D:\Temp\Text.txt")
text = text.TrimEnd()
Dim lines As String() = text.Split(ControlChars.Lf)