array declaration error

[Iamateur]

Module avgarr
    Function getavg(ByVal arr As Integer(), ByVal size As Integer) As Double
        Dim i As Integer
        Dim avg As Double
        Dim sum As Integer = 0
        For i = 0 To size - 1
            sum += arr(i)
        Next i
        avg = sum / size
        Return avg


    End Function
    Sub main()
        Dim bal As Integer() =( 1000,2,3,17,50)
        Dim avg As Double
        avg = getavg(bal, 5)
        Console.WriteLine("avg val is :{0}", avg)
        Console.ReadKey()

    End Sub
End Module

Its showing error at this line :
Dim bal As Integer() =( 1000,2,3,17,50)
The error is : Inset ')' after 1000.

One more error is :
avg = getavg(bal, 5)

It shows name 'bal' is not declared.

[Minimalist]

Dim bal As Integer() =( 1000,2,3,17,50) should probably be

bal As Integer() ={1000,2,3,17,50}

the third error occured because of above
http://msdn.microsoft.com/en-us/library/wak0wfyt.aspx#BKMK_ArrayElements