VS 2010 - How To Remove All Blank Lines In TextFile

I use the following coding to replace a word in my textfile, would it be possible to add any coding that will remove all blank lines from the same text file?
Dim EditMyFile As String = IO.Path.Combine("D:Test.txt")
Dim inputFile = Regex.Replace(IO.File.ReadAllText(EditMyFile), "test", "test2")
IO.File.WriteAllText(EditMyFile, inputFile)

I have tried the following but it doesnt work.
Dim EditMyFile As String = IO.Path.Combine("D:Test.txt")
Dim inputFile = Regex.Replace(IO.File.ReadAllText(EditMyFile), "test", "test2")
IO.File.WriteAllText(EditMyFile, inputFile)
Dim sText As String = File.ReadAllText("D:Test.txt")
Dim sNewLines() As String = sText.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
File.WriteAllLines("D:Test.txt", sNewLines)