Soru Listbox açıldığında önceki seçimi hatırlama

[seckinb]

Merhaba

userform içerisindeki LB1 isimli listbox'a .additem şeklinde bir liste ile seçenek sağlıyorum.
bu seçenekler seçildiğinde "kimlik" isimli worksheet'te C9 hücresine değer yazılıyor.
Ancak nedendir bilmem, userformu kapatıp açtığımda önceki değerin oraya yazılmasını başaramadım.

şu şekilde bir kodla textbox, comboboxlardan geri veri çağırabiliyordum.

nerede hata yapıyorum?

Private Sub UserForm_Activate()
Dim wb As Workbook
Dim kimlik As Worksheet

Set wb = ThisWorkbook
Set kimlik = wb.Sheets("kimlik")

LB1.Value = CStr(kimlik.Range("C9").Value)

End Sub

 

[ümit bektas]

text value değerine yaz bir daha kaybolmaz

 

[seckinb]

text value değerine yaz bir daha kaybolmaz

LB1.Value = CStr(kimlik.Range("C9").Value)

hangisini text olarak değiştirmeliyim? LB1'den sonra olanı mı?