aocvbdotnet2018day1part2

FileOpen(1, "C:\Users\******\OneDrive\Desktop\NumberAdder.txt", OpenMode.Input)
Dim ResultingFrequency As Integer = 0

Dim ResultingFrequencies As New List(Of Integer)
Dim RepeatedFrequency As Integer
Dim FrequencyFound As Boolean = False

While Not EOF(1)
    ResultingFrequency += LineInput(1)
    If ResultingFrequencies.Count = 0 Then
        ResultingFrequencies.Add(ResultingFrequency)
    Else
        For i = 0 To ResultingFrequencies.Count - 1
            If ResultingFrequency = ResultingFrequencies(i) And Not FrequencyFound Then
                RepeatedFrequency = ResultingFrequency
                FrequencyFound = True
            End If
        Next
        If Not FrequencyFound Then
            ResultingFrequencies.Add(ResultingFrequency)
        End If
    End If
End While

If FrequencyFound Then
    Console.WriteLine("The first repeated frequency is " & RepeatedFrequency)
Else
    Console.WriteLine("Frequency not repeated!")
End If
Console.ReadLine()

FileClose(1)