So you want to check if numeric and then add?
Function sumCSVNumbers(val As String)
Dim arr As Variant: arr = Split(val, ",")
If IsNumeric(arr(0)) = True And IsNumeric(arr(1)) = True Then sumCSVNumbers = Application.Sum(arr(0), arr(1))
End Function