هل يمكن جمع قيم محددة من قائمة منسدلة

السلام عليكم

'لاعادة قيمه ComboBox or ListBox or TextBox or ..
Function GetValue(oControl)
On Error Resume Next
	GetValue = ""
 If Not IsNull(oControl.Value) Then
	  GetValue = oControl.Value
 End If
End Function

'لجمع عناصر القائنة
Dim nSum
nSum = 0
With Me.Combo0
   For i = 0 To .ListCount - 1
	   nSum = nSum + Val(GetValue(.Column(0, i)))
   Next
   MsgBox nSum
End With

'لاخذ القيمة الحليه للقائمة
If Combo0.ListIndex <> -1 Then
   If Not IsNull(Combo0.Value) Then
	  nValue = Combo0.Value
	End If
End If
'لوضعها في مربع نض
   Text1.Value = nValue

شكراً جزيلاً أخ Mo7eb_Alrasool على الرد والمعلومات أتمنى لك دوام التوفيق وكل النجاح

حياك الله اخي مشكور