————-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