I finally got it!

[NinjaNic]

I finally understand how to add 2 numbers properly! Try it out yourself!

    Function Add(A As Integer, B As Integer) As Integer
        Dim C As Integer = CInt((Math.Sign(A) * Math.Abs(A)).ToString.ToUpper.ToLower)
        Dim D As New List(Of Integer)
        With D
            .Add(CInt(CStr(CInt(CStr(CInt(B.ToString))))))
        End With
        A = A * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 1 * 0
        B = CInt(Math.Sqrt(Math.Pow(B, 2))) - ----((((((((((((B))))))))))))
        If True OrElse False Then A = ((((((((((((((((((((((C * 2)))))))))))))))) - --------C))))))
        If True AndAlso A - -1 > A Then B = Convert.ToInt32(D(0) * 2) - Convert.ToInt32(Convert.ToInt64(D(0)))
        Dim E As New With {.Value = A + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + (10000 * 0)}
        Dim F() As Integer = {B}
        A = CInt(C.ToString.ToString.ToString.ToString.ToString.ToString.ToString.ToString)
        B = (((((((((((((((((((((((((((((((((((((((((((((D(0) + D(0) - D(0))))))))))))))))))))))))))))))))))))))))))))))
        Return E.Value + F(0) + (2 * (A + B) - A - B) - (C + D(0))
    End Function

[jmcilhinney]

Where's the recursion?

[FunkyDexter]

Where's the recursion?

[NinjaNic]

Here's the recursion:

    Function Add(A As Integer, B As Integer) As Integer
        If A = 0 AndAlso B > 0 Then Return 1 + Add(A, B - 1)
        If A = 0 AndAlso B < 0 Then Return -1 + Add(A, B + 1)
        If A > 0 AndAlso B = 0 Then Return 1 + Add(A - 1, B)
        If A < 0 AndAlso B = 0 Then Return -1 + Add(A + 1, B)
        If A > 0 AndAlso B < 0 Then Return Add(A - 1, B + 1)
        If A < 0 AndAlso B > 0 Then Return Add(A + 1, B - 1)
        If A > 0 AndAlso B > 0 Then Return 2 + Add(A - 1, B - 1)
        If A < 0 AndAlso B < 0 Then Return -2 + Add(A + 1, B + 1)
        If A = 0 AndAlso B = 0 Then Return 0
    End Function

I tried to improve it, but I kept on getting a StackOverflowException.

    Function Add(A As Integer, B As Integer) As Integer
        If A = 0 AndAlso B > 0 Then Return 1 + Add(A, Add(B, -1))
        If A = 0 AndAlso B < 0 Then Return -1 + Add(A, Add(B, 1))
        If A > 0 AndAlso B = 0 Then Return 1 + Add(Add(A, -1), B)
        If A < 0 AndAlso B = 0 Then Return -1 + Add(Add(A, 1), B)
        If A > 0 AndAlso B < 0 Then Return Add(Add(A, -1), Add(B, 1))
        If A < 0 AndAlso B > 0 Then Return Add(Add(A, 1), Add(B, -1))
        If A > 0 AndAlso B > 0 Then Return 2 + Add(Add(A, -1), Add(B, -1))
        If A < 0 AndAlso B < 0 Then Return -2 + Add(Add(A, 1), Add(B, 1))
        If A = 0 AndAlso B = 0 Then Return 0
    End Function

[si_the_geek]

I tried to improve it, but I kept on getting a StackOverflowException.

You can find a solution to that here

[NinjaNic]

You can find a solution to that here

Good find.

[Shaggy Hiker]

I thought it was going to be a link to an exceptional Stack Overflow thread.

[NinjaNic]

I thought it was going to be a link to an exceptional Stack Overflow thread.

Me too, to be honest.