kodların karşısına değer girmek istiyorum

[ErkaNOrtataS]

arkadaşlar aşağıdaki kodların karşısına değer girmek istiyorum.
mesela:
m_durumu.AddItem "Bekar" bunun değeri 0.50
m_durumu.AddItem "Evli (Eş Çalışmıyor)" bunun değeri 0.60 olmasını istiyorum.nasıl yapabilirim.
örnek dosya ektedir.


Private Sub userform_Initialize()
c_sayısı.AddItem "Yok"
c_sayısı.AddItem "1"
c_sayısı.AddItem "2"
c_sayısı.AddItem "3"
c_sayısı.AddItem "4"
c_sayısı.AddItem "5"
c_sayısı.AddItem "6"
c_sayısı.AddItem "7"
c_sayısı.AddItem "8"
c_sayısı.AddItem "9"
m_durumu.AddItem "Bekar"
m_durumu.AddItem "Evli (Eş Çalışıyor)"
m_durumu.AddItem "Evli (Eş Çalışmıyor)"
End Sub