Dim lines As New List(Of String)(IO.File.ReadAllLines("C:\vb\test.txt")) lines.RemoveAt(1) '2行目を削除 lines.RemoveAt(2) '3行目を削除 IO.File.WriteAllLines("C:\vb\test.txt", lines)