Задача на массивы. Нужен вывод - VB

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

Задан массив A из n элементов. Найти кол-во элементов =0? кол=во элементов больше 0 и меньше 0? Проблема с выводом. Как сделать чтобы в ListBox1 выводились значения массива?

Dim I, N, k, b, p As Integer
Dim A() As Single
N=CInt(InputBox("N= ")
ReDim A(0 To N-1)
ListBox1.Text = ""
k=0 : b=0 : p=0
For I=0 To N-1
A(I) = CSng(InputBox("A(" + CStr(I) + ")-"))
If A(I)>0 Then
  k=k+1
ElseIf A(I)<0 Then
  b=b+1
Else
c=c+1
End If
Next I

Решение задачи: «Задача на массивы. Нужен вывод»

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

                            ListBox1.AddItem ("кол-во элементов =0 "+str(c))
ListBox1.AddItem ("кол-во элементов >0 "+str(k))
ListBox1.AddItem ("кол-во элементов <0 "+str(b))
                        