Bè fai un for per tutti gli elementi della ListBox
codice:
Dim str As String
For i As Integer = 0 To ListBox1.Items.Count -1
  str += ListBox1.Items(i).ToString
Next
Però non so se c'e' qualche funzione che converta tutti gli elementi in una sola Stringa come il Join.