OPTION EXPLICIT


Dim dataSet : dataSet = Array(+13,_
-3,_
-8,_
+14,_
+16,_
-7,_
+3,_
-7,_
+9,_
-10,_
+16,_
+13,_
+12,_
+12,_
+4,_
+19,_
-2,_
-5,_
-15,_
-2,_
-13,_
-11,_
-13,_
-2,_
+5,_
-12,_
+17,_
+12,_
-8,_
+11,_
+2,_
+19,_
-14,_
+20,_
-5,_
+7,_
+6,_
+20,_
-12,_
+7,_
+3,_
-8,_
-3,_
-16,_
-15,_
+1,_
-16,_
+3,_
-11,_
+18,_
-14,_
-10,_
+23,_
+20,_
-16,_
+8,_
-9,_
+16,_
-11,_
+10,_
-5,_
+14,_
+8,_
+9,_
-1,_
-2,_
+12,_
+1,_
+16,_
-12,_
+7,_
+16,_
+8,_
+6,_
+8,_
-17,_
-7,_
+13,_
+18,_
+15,_
-7,_
-16,_
+12,_
-7,_
-3,_
-17,_
-3,_
-7,_
+8,_
-13,_
-4,_
-12,_
+19,_
+1,_
-12,_
-18,_
+16,_
-10,_
+19,_
-14,_
+12,_
+19,_
+18,_
+9,_
+1,_
+11,_
+2,_
-7,_
+17,_
-15,_
+7,_
-18,_
-5,_
+15,_
+18,_
+7,_
+3,_
+8,_
+2,_
+15,_
-3,_
+18,_
-17,_
-11,_
-11,_
+4,_
+11,_
-18,_
-14,_
+7,_
-12,_
-9,_
-4,_
-18,_
-6,_
-3,_
+8,_
-15,_
-9,_
-19,_
-19,_
+11,_
+19,_
+16,_
-4,_
+18,_
-16,_
+14,_
-3,_
+21,_
-7,_
-5,_
+1,_
-4,_
+12,_
+25,_
+4,_
+16,_
-14,_
+10,_
-4,_
+20,_
+9,_
+5,_
-9,_
-14,_
+1,_
+20,_
+19,_
+14,_
+12,_
-2,_
-19,_
-4,_
-3,_
+19,_
-15,_
+11,_
+14,_
-2,_
+19,_
+5,_
-3,_
+14,_
+19,_
-1,_
-6,_
+11,_
+12,_
+10,_
+16,_
+9,_
+13,_
+17,_
-3,_
-11,_
+18,_
-6,_
-18,_
+9,_
-5,_
-3,_
-13,_
-9,_
-8,_
-13,_
-8,_
-2,_
-8,_
+19,_
-17,_
-8,_
-6,_
-4,_
+13,_
+10,_
+9,_
-11,_
+8,_
+13,_
+4,_
+13,_
-6,_
+8,_
-12,_
+19,_
+15,_
-5,_
+17,_
+17,_
-6,_
+16,_
-11,_
-10,_
-20,_
-12,_
+1,_
+4,_
-2,_
-21,_
-15,_
+8,_
+16,_
+5,_
-17,_
-9,_
+4,_
-3,_
+18,_
+17,_
-12,_
-11,_
+15,_
-17,_
-13,_
-10,_
+3,_
-2,_
-8,_
+5,_
+8,_
+5,_
-16,_
-24,_
+19,_
-22,_
+12,_
-18,_
+4,_
-10,_
-17,_
+7,_
+14,_
+4,_
-5,_
-2,_
-15,_
-14,_
-9,_
-2,_
-2,_
-17,_
-18,_
-4,_
+13,_
+12,_
-1,_
+2,_
-6,_
+22,_
+6,_
+6,_
+10,_
+9,_
+5,_
-7,_
+14,_
+14,_
-12,_
+16,_
-3,_
+8,_
-2,_
-10,_
+2,_
+4,_
-11,_
+18,_
-15,_
-22,_
-10,_
-18,_
+1,_
-16,_
-11,_
+12,_
-22,_
+13,_
+11,_
+4,_
-13,_
-6,_
-21,_
-16,_
-11,_
-7,_
+11,_
-5,_
+4,_
+9,_
+10,_
-8,_
+15,_
-9,_
+12,_
+14,_
-10,_
+1,_
+22,_
+9,_
+3,_
+21,_
+14,_
-8,_
+7,_
+2,_
-20,_
+12,_
+21,_
-36,_
-4,_
+2,_
+18,_
-14,_
+10,_
-109,_
-1,_
+9,_
-69,_
+14,_
-13,_
+7,_
-4,_
-34,_
+10,_
-5,_
+15,_
-17,_
-9,_
+5,_
+14,_
+9,_
+10,_
-68,_
+22,_
+10,_
-47,_
-14,_
-3,_
+20,_
-13,_
+22,_
-8,_
-8,_
+2,_
-17,_
-15,_
+11,_
-3,_
-1,_
+15,_
-6,_
-12,_
-16,_
-14,_
+3,_
+15,_
-12,_
-4,_
+2,_
-15,_
+16,_
+15,_
+4,_
-16,_
+28,_
-21,_
-8,_
+18,_
+6,_
-18,_
+40,_
+18,_
+10,_
-20,_
+26,_
-17,_
-100,_
+2,_
+6,_
+9,_
-26,_
+62,_
+202,_
+40,_
-72,_
-58332,_
-10,_
-10,_
+14,_
+1,_
-20,_
+4,_
-19,_
+17,_
-19,_
-10,_
+13,_
+6,_
+6,_
-8,_
+5,_
-6,_
+4,_
+15,_
+13,_
-11,_
-4,_
-3,_
+10,_
+18,_
-4,_
+12,_
+19,_
+1,_
-2,_
-7,_
-15,_
-12,_
+14,_
+12,_
-15,_
+4,_
-21,_
+12,_
-18,_
+3,_
+12,_
-19,_
-11,_
-19,_
-15,_
+14,_
-2,_
-14,_
-13,_
+14,_
+18,_
+18,_
-16,_
+7,_
-20,_
+4,_
-2,_
-21,_
-16,_
-11,_
+19,_
+17,_
-2,_
-6,_
+4,_
+15,_
-2,_
+20,_
+4,_
+3,_
-10,_
-9,_
-12,_
+3,_
+16,_
-4,_
-7,_
-16,_
-7,_
-9,_
-12,_
+19,_
+7,_
-19,_
+10,_
+13,_
-6,_
+8,_
-21,_
-6,_
-15,_
+4,_
-2,_
-4,_
-9,_
+14,_
+10,_
-17,_
+11,_
-10,_
-5,_
-16,_
-1,_
-16,_
-6,_
-17,_
+3,_
-16,_
-15,_
-11,_
-17,_
-9,_
-8,_
-9,_
+2,_
+13,_
-8,_
-4,_
+2,_
+9,_
-1,_
+12,_
+5,_
+9,_
-7,_
+8,_
+7,_
+18,_
+16,_
-7,_
+9,_
+18,_
-17,_
+12,_
-16,_
-12,_
-5,_
+15,_
-12,_
-13,_
+9,_
-1,_
-12,_
-4,_
-3,_
+16,_
-12,_
-9,_
+4,_
+18,_
+20,_
-9,_
+18,_
+10,_
-6,_
-16,_
+11,_
+8,_
+7,_
+11,_
+4,_
+2,_
-15,_
-7,_
+17,_
+19,_
+12,_
-11,_
-10,_
+16,_
+15,_
-16,_
-3,_
-13,_
-11,_
-3,_
-18,_
+16,_
-4,_
-14,_
-17,_
-5,_
+8,_
+11,_
-15,_
-15,_
-8,_
-15,_
-11,_
-4,_
-7,_
-17,_
+3,_
-6,_
-12,_
-11,_
-7,_
-3,_
+15,_
-4,_
+2,_
-7,_
-15,_
+3,_
-2,_
+3,_
-16,_
+9,_
+11,_
-15,_
-13,_
+3,_
+6,_
-12,_
-8,_
+2,_
-20,_
-4,_
-4,_
-12,_
+5,_
+20,_
+11,_
-17,_
-13,_
+12,_
-10,_
-4,_
-18,_
-12,_
+1,_
-11,_
+13,_
-7,_
+19,_
-4,_
+12,_
+20,_
-2,_
+12,_
+3,_
-1,_
+15,_
+10,_
-17,_
+18,_
-8,_
-5,_
-8,_
-11,_
+16,_
-4,_
-2,_
+8,_
+10,_
-3,_
-3,_
+15,_
-1,_
+12,_
+12,_
+17,_
+16,_
+12,_
-15,_
+17,_
+18,_
-8,_
-19,_
-6,_
-17,_
-1,_
+8,_
-4,_
+8,_
-1,_
-4,_
+3,_
-1,_
-19,_
+8,_
-15,_
-1,_
+15,_
-20,_
-7,_
-14,_
+11,_
+21,_
+5,_
-15,_
-19,_
+20,_
-15,_
-11,_
-19,_
-3,_
+15,_
-17,_
-4,_
-15,_
-19,_
-5,_
+16,_
-17,_
-16,_
+3,_
+4,_
-5,_
-13,_
+10,_
+22,_
+5,_
+10,_
-1,_
-3,_
-5,_
+1,_
-18,_
-14,_
+1,_
+4,_
-15,_
+26,_
+6,_
+6,_
-32,_
-12,_
-12,_
+16,_
+4,_
-14,_
+4,_
-6,_
-15,_
-36,_
-34,_
+12,_
+9,_
-16,_
+9,_
-20,_
+10,_
+2,_
-8,_
+11,_
-12,_
-5,_
+19,_
-51,_
-12,_
+24,_
-22,_
+15,_
-7,_
-2,_
+11,_
+14,_
-4,_
-7,_
+17,_
-16,_
-3,_
-13,_
-9,_
+20,_
-15,_
-21,_
+10,_
-7,_
-16,_
-17,_
-8,_
-1,_
-7,_
+11,_
-17,_
-19,_
+8,_
-3,_
+11,_
-12,_
-25,_
-22,_
+16,_
-20,_
-10,_
-19,_
-42,_
-18,_
-8,_
+16,_
+2,_
+1,_
-5,_
+1,_
+22,_
-8,_
+44,_
-3,_
+21,_
+16,_
+1,_
+29,_
+17,_
-23,_
-2,_
-5,_
+17,_
+20,_
+21,_
+7,_
-14,_
-60,_
+31,_
+13,_
+60,_
-21,_
+56,_
+99,_
+10,_
-29,_
-16,_
+105,_
+5,_
-272,_
-57969,_
+5,_
-4,_
-13,_
+2,_
-10,_
-10,_
+19,_
-16,_
-2,_
-3,_
-5,_
-11,_
-7,_
+12,_
-9,_
+2,_
+3,_
-12,_
-10,_
+1,_
-10,_
-7,_
+12,_
-14,_
-2,_
+1,_
-5,_
+17,_
+4,_
-9,_
-21,_
-10,_
+17,_
-24,_
-12,_
+2,_
-12,_
+18,_
-1,_
-9,_
+6,_
+6,_
+20,_
+10,_
+11,_
-12,_
-2,_
-15,_
+12,_
-23,_
+3,_
-17,_
-4,_
-10,_
+22,_
-13,_
-4,_
+3,_
+8,_
-13,_
-19,_
-2,_
-5,_
-19,_
+6,_
-18,_
+4,_
-10,_
+3,_
+13,_
-5,_
-4,_
-3,_
-7,_
-2,_
+18,_
+7,_
+8,_
+3,_
-10,_
+12,_
-7,_
+12,_
+16,_
-11,_
+4,_
+15,_
-3,_
-7,_
+6,_
-13,_
-13,_
-18,_
-2,_
-14,_
-2,_
-16,_
+1,_
+8,_
-7,_
+5,_
-14,_
+19,_
+17,_
-8,_
+14,_
+19,_
+7,_
+10,_
+2,_
-5,_
+23,_
+12,_
+21,_
-10,_
+8,_
+31,_
+12, _
+117267)


MsgBox "Challenge1A: " & calcFinalFrequency(dataSet)
Function calcFinalFrequency(a)
    Dim v
    For Each v In dataSet
        calcFinalFrequency = calcFinalFrequency + v
    Next
End Function

MsgBox "Challenge1B: " & calculatedFirstRepeatedFrequency(dataSet)

Function calculatedFirstRepeatedFrequency(dataSet)
    Dim frequencyDictionary : Set frequencyDictionary = CreateObject("Scripting.Dictionary")
    Dim frequency : frequency = 0
    Dim v
    calculatedFirstRepeatedFrequency = 0
    frequency = frequency + v
    Do Until frequencyDictionary.Exists(frequency&"")
        For Each v In dataSet
            If frequencyDictionary.Exists(frequency&"") Then
                calculatedFirstRepeatedFrequency = frequency
                Exit For
            Else
                frequencyDictionary.Add frequency&"", 1
            End If
            frequency = frequency + v
        Next
    Loop
    Set frequencyDictionary = Nothing
End Function