Выод значений в таблицу - VB

Формулировка задачи:

Компания выпускает несколько видов изделий различной стоимости. Известны названия изделий, объемы заказов по каждому виду изделия и стоимость каждого изделия.

	Изделия		Стоимость одного изделия		Объем заказа (шт.)
	Бумага		20000		10
	Тетрадь		4		10000
	.....		.....		.....
	Вывести таблицу следующего вида, подсчитав стоимость заказа: 
	Изделия		Стоимость всего заказа
	…		……….

вот мой код не то выдает посмотрите что-то не понятно на корректность программы по условию задачи

null

Решение задачи: «Выод значений в таблицу»

textual
                            Листинг программы 
                        

                              Dim i, N As Integer
  Dim T() As String
  Dim P(), V(), U() As Single
                        