usa una variabile che valorizzi facendo un ciclo For/Next leggendo tutti gli elementi del Litsbox e concatenandoli interponendo la virgola.

codice:
dim sAnni as string
For i = 0 to tuaListbox.ListCount - 1
    sAnni = sAnni & "," & tuaListbox.List(i)
Next i