Code:

Open "games.csv" For Input As #1 totvalue = 0 While Not EOF(1)            totvalue = totvalue + cost        Input #1, Console, Game, price, Age, Genre, cost, Condition, quantity   lstGame.AddItem Console & Game & price & Age & Genre & cost & Condition & quantity        Console(x) = Console(x) + "                 "        Console(x) = Left(Console(x), 19)        Game(x) = Left(Game(x) + "               ", 16)        price(x) = Left(price(x) + "              ", 14)        Age(x) = Left(Age(x) + "              ", 16)        Genre(x) = Left(Genre(x) + "              ", 17)        cost(x) = Left(cost(x) + "              ", 14)        price(x) = Left(price(x) + "              ", 14)        quantity(x)=left (quantity(x) "   ",3)    Wend

I keep getting runtime error 13. I have done a similar program before. So i baes it on that it won't work help.