Principiante

For r = 1 To 5 ' las cantidades de lineas que se
generaran
strLista= Cstr(Int((res * Rnd() + 1))) & "," & strLista
Next

Hola
estoy interesado en meterme de lleno a la programacion y estoy haciendo un
programita con unos numeritos aleatorios.

es simple. el programa genera los numeros aleatorios en un listbox. pero
me
los agrega secuencialmente eso esta bien.
pero si quiero agregarlos uno al lado del otro por lo menos seis digitos
aqui esta el code:

Dim num, res, r As Integer
res = TextBox1.Text ' de aqui tomo el rango en que se generara
el numero

For r = 1 To 5 ' las cantidades de lineas que se
generaran
Me.ListBox1.Items.Add(CInt(Int((res * Rnd() + 1))))
Next

este codigo trae esto por ejemplo suponiendo que el numero sea ""
5
4
6
2
3

bien pero lo que quiero es unirlos por ejemplo
5, 4, 6, 2, 3

intente con & pero no me sale. ¿como lo hago?