Imports System.IO

Public Class Form1

    Private Sub AggiungiRigaAllaPosizione(ByVal file As String, ByVal numeroriga As Integer, ByVal testo As String)
        Dim fileStream As IO.StreamReader
        Dim txtarray As String()

        fileStream = IO.File.OpenText(file)
        txtarray = fileStream.ReadToEnd().Split(New String(Environment.NewLine, StringSplitOptions.RemoveEmptyEntries))
        fileStream.Close()

        Dim AList As ArrayList = New ArrayList(txtarray)
        If (numeroriga - 1 >= 0) And (numeroriga - 1 <= txtarray.Count - 1) Then
            MessageBox.Show("L'inserimento verrà effettuato prima della riga : " & txtarray(numeroriga - 1))
            AList.Insert(numeroriga - 1, testo)
        Else
            MessageBox.Show("Attenzione riga indicata per l'inserimento non valida")
        End If

        Dim nuovoArray As String() = CType(AList.ToArray(GetType(String)), String())

        Dim FileName As String = Application.StartupPath & "\" & "nuovofile.txt"
        IO.File.WriteAllLines(FileName, nuovoArray)

    End Sub

    Private Sub btAggiungi_Click(sender As Object, e As EventArgs) Handles btAggiungi.Click
        AggiungiRigaAllaPosizione("fileditesto.txt", 2, "nuova riga aggiunta")
    End Sub
End Class