Dim As Integer s(1 To 7) => {1,2,2,3,4,4,5}
For i As Integer = 1 To Ubound(s)
    Dim As Integer curr = s(i), prev
    If i > 1 And curr = prev Then Print i
    prev = curr
Next i
Sleep