Oppure usare Linq!!
Supponiamo che tu abbia un array di 5000 elementi
Dim Users(4999) As String
Private Sub CiclaArray()
Dim myUsers = From _Users In Users Select _Users
For Each User In myUsers
MessageBox.Show(User)
Next
End Sub
Facci sapere...
Ciao