Conditional angle VB script

[Raun]

Hi,
I was hoping that some one would be able to point me in the right
direction with this simple script. Saying that If an angle is over 1.5
in radians then it sould be equal to zero. This is my progress so far
but I get errors.

    Dim max As New List (Of Double)
    Dim i As Integer = 0

    For i = 0 To x.count() - 1

      max = x(i)

      If (max(i) > y)
        Then max = 0
    End If

  Next

  A = max

Cheers

Christian