How to eliminate space after from listbox

[Pookiemeister]

Private Sub ListBox1_Change()
    SelectedItems = ""
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            SelectedItems = SelectedItems & ListBox1.List(i) & vbNewLine
            Debug.Print SelectedItems
            Debug.Print ListBox1.ListCount
        End If
    Next i
    
End Sub

The Multiselect is set to 1-fmMultiSelectMulti and I'm not sure why, but after I click all the needed selections from the Listbox it adds a gap/space after the last selection. How can I prevent this?

Thank You

 

[Yongle]

I'm not sure why

... because vbNewLine is added to the string after every selected item including the last one

(Untested) - try removing the last character from the final string

below 
Next i
insert
SelectedItems = Left(SelectedItems, Len(SelectedItems) - 1)