Opdater Listbox i VBA

Jeg har en listbox med noget tekst - jeg vil gerne have, at der hentes en ny liste til den listbox, når der klikkes på en af tekst strengene.

Private Sub ListBox3_Click()
If UserForm1.ListBox3.Value = "Tekst" Then
With ListBox3
.RowSource = "Ny liste"
End With
End If

Efter koden er kørt, kan man stadig se den gamle liste i min listbox, men når jeg trykker på en anden knap, som overfører den markede tekststreng over til en anden listbox, henter den fra den nye liste. Altså virker det som om at den har hentet den nye liste, den bliver bare ikke opdateret ved mit click-event.