Writing a csv file to a List(Of String)

[kamauharrison87]

I split a csv file to parts: the buyer_name and buyer_key.
My next goal is to save this two in an list(of string)with indices zero and one as i iterate through the cvs file.
This is the code:

Public Function InitializeBuyerKeys()
        Dim BuyerList(2) As List(Of String)
       Dim sr As StreamReader = New StreamReader("C:\Users\Harrison pc\Documents\harrison\BuyersKeyList.csv")
        Dim strLine As String = String.Empty
 
        Do While sr.Peek() >= 0
            strLine = String.Empty
            strLine = sr.ReadLine()
 
            Dim reader As StringReader = New StringReader(strLine.ToString())
            Dim currentLine As String = reader.ReadLine()
 
            Dim buyer_name As String = currentLine.Split(",")(0)
            BuyerList(0).Add(buyer_name)
            ' MessageBox.Show(List.ToString)
 
            Dim buyer_key As String = currentLine.Split(",")(1)
            BuyerList(1).Add(buyer_key)
            ' MessageBox.Show(List.ToString)
 
 
 
        Loop
        Return BuyerList.ToString

Please help. I'm having an error of nullexception.