Vb.net Index was out of range !

Imports System.Threading
Imports System.IO
 
Public Class Form1
    Dim opn As OpenFileDialog
    Dim sv As SaveFileDialog
    Dim str As String
    Dim ligne As Integer
    Dim file As System.IO.StreamWriter
 
    Dim lst As List(Of String) = New List(Of String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim th As New Threading.Thread(AddressOf opn_f)
 
        th.SetApartmentState(ApartmentState.STA)
        th.Start()
    End Sub
    Sub opn_f()
        opn = New OpenFileDialog
        Dim th As New Threading.Thread(AddressOf for_f)
        If opn.ShowDialog = Windows.Forms.DialogResult.OK Then
            str = opn.FileName
            Try
                FileOpen(1, str, OpenMode.Input, OpenAccess.Default)
                While Not EOF(1)
                    ligne = Val(LineInput(1))
                    lst.Add("<p> <a href='http://zone-h.org/archive/ip=" + lst.Item(ligne) + "  </p>test</a> </p>")
                End While
                'file = My.Computer.FileSystem.OpenTextFileWriter("ips.txt", True)
                'file.WriteLine("<p> <a href='http://zone-h.org/archive/ip=" + lst.Item(ligne) + "  </p>test</a> </p>")
                'th.Start()
                FileClose(1)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub
    Sub for_f()
        If Me.InvokeRequired Then
            Me.Invoke(New MethodInvoker(AddressOf for_f))
        Else
            For i As Integer = 0 To lst.Count - 1
                ListBox1.Items.Add(lst.Item(i))
            Next
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim th As Thread = New Thread(AddressOf save)
        th.SetApartmentState(ApartmentState.STA)
        th.Start()
    End Sub
    Sub save()
        sv = New SaveFileDialog
        If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
            Try
                FileOpen(1, sv.FileName, OpenMode.Binary, OpenAccess.Default)
                For i As Integer = 0 To lst.Count - 1
                    FilePut(1, lst.Item(i) & vbCrLf)
                Next
                FileClose(1)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub
End Class