Visual .Net – Vectores

————-MANEJAR VECTORES——-
‘—- CREAR VECTOR
Dim Vector1() As String
ReDim Vector1(0) : Vector1(0) = «»

  '---- AGREGAR NUEVO VALOR 
  ReDim Preserve Vector1(UBound(Vector1) + 1)
  Vector1(UBound(Vector1)) = ""    

  '---- RECORRER VECTOR
   Dim vLong1 As Long = 0
   For Each LineaS As String In Vector1
     If vLong1 > 0 Then
        devolver =   LineaS
     End If
     vLong1=vLong1+1
   Next