Excel - Sumar solo un dígito en varias celdas

Function Sumarconguiones(celrango As Range, Separador As String) As String

   Dim intFilasRango As Integer

   Dim intColumRango As Integer

   Dim cantFilas As Integer

   Dim cantCol, nEle1, nEle2, nEle3 As Integer

   Dim CantItems As Integer

' Obtenemos el número de filas y columnas del rango seleccionado

   CantItems = 0

   intFilasRango = celrango.Rows.Count

   intColumRango = celrango.Columns.Count

' Recorremos las columnas del rango

  For cantCol = 1 To intColumRango

    ' Recorremos las filas del rango

    For cantFilas = 1 To intFilasRango

      nEle1 = nEle1 + CInt(Split(celrango(cantFilas, cantCol).Value, Separador)(0))

      nEle2 = nEle2 + CInt(Split(celrango(cantFilas, cantCol).Value, Separador)(1))

      nEle3 = nEle3 + CInt(Split(celrango(cantFilas, cantCol).Value, Separador)(2))

    Next cantFilas

  Next cantCol

Sumarconguiones = nEle1 & "-" & nEle2 & "-" & nEle3

End Function