Codigo falso

[saldave]

El siguiente codigo me retorna falso en visual basic .net y no se por que?

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim ventas(5), i As Integer

For Each i In ventas
MsgBox(ventas(i) = i + 3)
Next
End Sub