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