پاک کردن قبل و بعد نقطه

[xrezax]

سلام دوستان یک لیست اسم دارم که به این شکل هستند:قلب:

1.رضا.20
2.علی.30
3.محمد.40

می خوام روی کامند که کلیک کنم از "." (نقطه) به قبل و بعد پا بشه و اینجوری تغییر کنن.
(اینجوری بشن)
رضا
علی
محمد

[محسن واژدی]

سلام علیکم
از برنامه زیر استفاده کنید:
Private Sub Command1_Click()

Dim i

With List1

For i = 0 To .ListCount - 1
.List(i) = Mid(.List(i), InStr(1, .List(i), ".") + 1, InStrRev(.List(i), ".") - 3)
Next 'i

End With

End Sub

موفق باشید