VB for Application (Listenfelder)

Ich habe folgendes Problem:
Unter Excel wird mit dem VB-Ecitor eine Listenbox mit Werten gefüllt:
Bsp: listbox1.additem = (12250)
Davon gibt es ca 16 Füllanweisungen. Nun sollen diese Werte in ein Label zusammengerechnet werden. Leider bekomme ich das nicht hin, weil es ja auch Strings sind. Auch mit mid(...), oder ähnlichen ist es nicht möglich.

Vielleicht hat ja jemanden einen Tipp für mich!

Danke ???
???

z.B
Integer =CInt(String1) + CInt(string2)

leider funktioniert das auch nicht, denn es kommt die Fehlermeldung:
Laufzeitfehler 6: Überlauf
Private Sub CommandButton1_Click()
Dim n As Integer
Dim sum As Integer
Dim i As Integer
Dim wert As Integer
n = ListBox4.ListCount
For i = 0 To n - 1
wert = CInt(ListBox4.List(i))
sum = sum + wert
Next i

Label6.Caption = sum
End Sub
:

doch jetzt funktioniert es... folgender Code ist der Richtige!

Private Sub CommandButton1_Click()
Dim n As Integer
Dim sum As Single
Dim i As Integer
Dim wert As Single
n = ListBox4.ListCount
For i = 0 To n - 1
sum = sum + Int(ListBox4.List(i))
Next i

Label6.Caption = sum

Trotzdem danke für die Hilfe!
;D

Laufzeitfehler 6: Überlauf soll heissen das der Wert zu gross für eine Int- Variable ist. Der long-Datentyp wäre sicherer.