Dim Lagersaldo(2, 16) As String
    Dim i As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sr As IO.StreamReader
        Dim temp(2) As string
        Dim tab As String = vbTab

        ListBox2.Items.Clear()
        Try
            sr = IO.File.OpenText("lager.txt")
            Do
                temp = sr.ReadLine().Split(",")
                For n = 0 To 2

                Next
                i += 1
            Loop Until sr.Peek = -1

        Catch ex As Exception
            MsgBox("Fel vid sökning i lager", 0, "ERROR!")
        Finally
            Try
                sr.Close()

            Catch ex As Exception

            End Try
            ListBox2.Items.Clear()
        End Try
        For n As Integer = 0 To i - 1
            ListBox2.Items.Add(Lagersaldo(0, n) & tab & Lagersaldo(1, n) & tab & Lagersaldo(2, n))

        Next
    End Sub