Listbox und Spinbutton

ich habe mir eine UserForm mit 2 Listboxen und einen Spinbutton gebastelt. Ziel des ganzen soll sein Listbox 1 mit Daten aus einem Tabellenblatt zu füllen, dies ist auch kein Problem. Mittels klick auf den Spinbutton möchte ich nun den ausgewählten Eintrag aus Listbox1 in Listbox2 schreiben und diesen aus Lb1 entfernen.
Wie muß der Code im Spinbutton aussehen damit er mir den ausgewählten Eintrag aus 1 löscht und in 2 schreibt. Ich habs schon mit removeitem versucht, aber irgendwie komme ich damit nicht klar.
Vielen Dank.

Private Sub SpinButton1_SpinUp()
ListBox2.AddItem ListBox1.Value
ListBox1.RemoveItem

End Sub

Gruß Andi