Function SumDigits(Number)
Dim i As Integer
For i = 1 To Len(Number)
SumDigits = SumDigits + Val(Mid(Number, i, 1))
Next i
End Function
Function MultiplyDigits(Number)
Dim i As Integer
MultiplyDigits = 1
For i = 1 To Len(Number)
MultiplyDigits = MultiplyDigits * Val(Mid(Number, i, 1))
Next i
End Function
Function SP(Number)
SP = SumDigits(Number) & "" & MultiplyDigits(Number)
End Function
