Um Fehler bei der Verarbeitung von numerischen Datenfeldern zu vermeiden, welche potenziell auch Null enthalten können, bleibt einem meist nichts anderes übrig als auf Null zu testen. Ich selbst benutze folgende Funktion, welche alle Probleme wie Null, Empty, nicht-Zahlen umgeht:
Function CLng0(ByRef Value As Variant) As Long
On Error Resume Next
CLng0 = CLng(Value)
End Function