Dim delLine As Integer = 10 Dim lines As List(Of String) = System.IO.File.ReadAllLines("infile.txt").ToList lines.RemoveAt(delLine - 1) ' index starts at 0 System.IO.File.WriteAllLines("outfile.txt", lines)