SoloCodigo

Ahi te mando un ejemplo de cargar un vector y dejpuej recorrerlo, intenta solucionar tu problema con esa ayuda.

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i As Integer
        For i = 0 To vector.Length - 1
            vector(i) = i
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim i As Integer
        For i = 0 To vector.Length - 1
            MsgBox(vector(i))
        Next
    End Sub