Listbox to String

Hi all

I have a Userform with a listbox called listbox2
I want the entire contents of this list box to be in a string in Variable Recs

I have this

Dim recs As String
If ListBox2.ListCount >= 1 Then
recs = ""
For x = 0 To ListBox2.ListCount - 1
recs = recs & ListBox2.List(x) & " ; "
Next x

End If

And it works
but I believe there is an easier way to do it
I think using the list properity