Tam anlamadım istediğin şeyi ama .. listboxtaki tüm verileri virgüllü şekilde yazdıracaksan şöyle yapabilirsin

        Dim EklenecekVeri As String = ""
        Dim ToplamVeri As Integer = ListBox2.Items.Count

        For i As Integer = 0 To ToplamVeri - 1

            If (i <> ToplamVeri - 1) Then 'son veri değilse

                EklenecekVeri += ListBox2.Items(i) + ", "

            Else 'son veriyse sonuna virgül ekleme

                EklenecekVeri += ListBox2.Items(i)

            End If

        Next
        MessageBox.Show(EklenecekVeri)

eğer saece 3 tane alacaksan toplamveri' nin değerini 3 e eşitle. kolay gelsin