Add Until [Function]

[formlesstree4]

You want to make that a bit faster?:

        Public Function Add(ByVal intyouknow As Integer, ByVal intresult As Integer) As Integer
            Return intresult - intyouknow
        End Function

That will do the exact same thing without the For loop; which if you have really big numbers, will slow it down.