Public Function Spalte3zusammenrechnen(ByRef lst As ListView)
      Dim ItemX As ListItem, _
          lResult As Long
 
10        On Error GoTo Spalte3zusammenrechnen_Error
 
20    lResult = 0
30    For Each ItemX In lst.ListItems
40        If IsNumeric(ItemX.SubItems(2)) Then
50            lResult = lResult + CLng(ItemX.SubItems(2))
60        Else
70            Err.Raise 1, , "In der Zeile " & ItemX.Index & " befindet sich" & _
  "kein Zahlenwert"
80        End If
90    Next
100   Spalte3zusammenrechnen = lResult
110   Set ItemX = Nothing
 
ende_Spalte3zusammenrechnen:
120      On Error GoTo 0
130      Exit Function
 
Spalte3zusammenrechnen_Error:
 
140      RaiseError Err.Number, "Form1 (Formular)", "Spalte3zusammenrechnen (" & _
  "Function)", CStr(Erl), Err.Description
 
150      Err.Clear
160      Resume ende_Spalte3zusammenrechnen
 
End Function
 
Public Sub RaiseError(lFehlernummer As Long, ByVal sModul As String, ByVal _
  sFunctionname As String, ByVal sZeilennummer As String, ByVal _
  sFehlerbeschreibung As String)
MsgBox "Im Programm ist folgender Fehler aufgetaucht:" & vbCrLf & vbCrLf & _
        "Fehlernummer:" & vbTab & lFehlernummer & vbCrLf & _
        "Modul:" & vbTab & vbTab & sModul & vbCrLf & _
        "Prozedur:" & vbTab & vbTab & sFunctionname & vbCrLf & _
        "Zeile:" & vbTab & vbTab & sZeilennummer & vbCrLf & _
        "Beschreibung: " & vbTab & sFehlerbeschreibung, vbCritical, "Achtung"
 
End Sub

text1 = Spalte3zusammenrechnen(ListView1)