اضافه کردن اطلاعات در combobox

[Veteran]

سلام دوستان خوبین :قلب::قلب::قلب:
ببخشین من میخوام به کاربر اجازه بدم تعدادی اسم رو وارد کنه و بین اونا از , استفاده کنه
مثلا

علی, رضا, محمد

اینو توی رجیستری سیو میکنیم حالا بعدش میخوایم اینارو از رجیستری دربیاریم و توی combobox بیارم این 3 تا اسم رو زیر هم دیگه اد کنیم توی combobox اما نمیدونم چجوری این کارو انجام بدم :متفکر:
ذخیره کردم توی رجیستری و فراخوانی از اونو بلدم اما چجوری
اینارو یعنی اسم های بین , رو اد کنم بلد نیستم
علی, رضا, محمد
مثلا توی combobox بزنه
علی
رضا
محمد

[M.T.P]

Dim i, x As Integer
Dim StrNames As String
Dim ArrNames() As String

StrNames = "علي ,رضا , محمد"
StrNames = Replace(StrNames, " ", vbNullString)
ArrNames = Split(StrNames, ",")

i = CInt(UBound(ArrNames))

For x = 0 To i
Combo1.AddItem ArrNames(x)
Next x