Dim lines() As String = IO.File.ReadAllLines("C:\vb\test.txt") lines(1) = "い" lines(2) = "う" IO.File.WriteAllLines("C:\vb\test.txt", lines)