ProjectEuler_6 -TizzyT

Module SumSquareDif 'My solution to Project Euler Problem 6
    Sub Main()
        Dim Sum, Square As Integer
        For i = 1 To 100
            Sum += i ^ 2
            Square += i
        Next
        Console.WriteLine((Square ^ 2) - Sum)
    End Sub
End Module