[Resolved]Building string from listbox

[hipopony66]

Does this code look correct to complete the task?

'store all medications information as string value
        While lstMeds.Items.Count > -1

            For i = 0 To lstMeds.Items.Count - 1
                strActiveMeds = strActiveMeds & lstMeds.SelectedItem & ", "
            Next
        End While

Thanks.