Estou tentando ler um arquivo CSV no meu aplicativo VB.net usando o seguinte código:

While Not EOF(1)
    Input(1, dummy)
    Input(1, phone_number)
    Input(1, username)
    Input(1, product_name)
    Input(1, wholesale_cost)
    Input(1, dummy)
    Input(1, dummy)
End While

Meu arquivo CSV (como texto) fica assim:

Customer Name,Phone Number,Username,Product,Wholesale Cost,Sales Price,Gross Profit, Customer Reference
  ,00000000000,00000000000,Product Name,25.00,35.00,10.00,
  ,00000000000,00000000000,Product Name,1.00,1.40,0.40,

Como você pode ver, nem todos os campos são sempre incluídos e, portanto, um erro é exibido ao ler o arquivo porque ele não pode chegar ao final da linha.

Como posso lidar com esse tipo de arquivo?

Às vezes, os campos estarão lá em algumas linhas, e outros não.

ATUALIZAR

Eu tentei a resposta queZenacity fornecido, mas ao tentar ler usandosArray(1) dentro do loop ele retornaIndex was outside the bounds of the array