Private Sub cmdCargar_Click()
 
Dim vectorNombre(3) As String, vectorEdad(3) As Byte
 
Static x As Byte
 
'Carga de datos a los vectores
 
For x = 0 To 2
 
    vectorNombre(x) = txtNombre(x).Text
    vectorEdad(x) = txtEdad(x).Text
 
Next x
 
End Sub

 
Private Function CargarVector(ByRef vectorN() As String, ByRef vectorE() As Byte) As Boolean
Dim x       As Integer
Dim Ini     As Long                                                 '   //  Lbound() devuelve tipo Long.
Dim Fin     As Long                                                 '   //  Ubound() devuelve tipo Long.
 
    If Not ((Not vectorN) = -1) And Not ((Not vectorE) = -1) Then   '   //  Que esten inicialisados (Evitamos On Error Resume Next, On Resume Goto ...).
        Ini = LBound(vectorN)                                       '   //  Un peque respaldo para no usar los procesos muchas veces!¡.
        Fin = UBound(vectorN)                                       '   //  Un peque respaldo para no usar los procesos muchas veces!¡.
        CargarVector = Fin = UBound(vectorE) And _
                       Ini = LBound(vectorE)                        '   //  Si son de la misma longitud.
        If CargarVector Then
            For x = Ini To Fin                                      '   //  Recorremos utilizando las variables Ini y Fin.
                vectorN(x) = txtNombre(x).Text                      '   //  Esto no me gusta pero ni que (Deverian de pasarse).
                vectorE(x) = txtEdad(x).Text                        '   //  Esto no me gusta pero ni que (Deverian de pasarse).
            Next
        End If
    End If
End Function
 
 

 
option explicit
 
Dim VectorNombres()         As String
Dim VectorEdades()          As Integer
 
Private Sub Command1_Click()
    Dim i As Long
    For i = LBound(VectorNombres) To UBound(VectorNombres)
        Debug.Print " Edad: "; VectorEdades(i); " Nombre: "; VectorNombres(i)
    Next
End Sub
 
Private Sub Form_Load()
    ReDim VectorNombres(txtNombre.LBound To txtNombre.UBound)
    ReDim VectorEdades(txtNombre.LBound To txtNombre.UBound)
End Sub
Private Sub Text1_LostFocus(Index As Integer)
    VectorNombres(Index) = txtNombre(Index).Text
    VectorEdades(Index) = Val(txtEdad(Index).Text)
End Sub
 
 

 
Public Sub Sumar()
Static a As Long
 a = a + 1
 Debug.Print a
End Sub
 
Private Sub Form_Load()
    Call Sumar
    Call Sumar
    Call Sumar
    Call Sumar
    Call Sumar
End Sub
 
 
 

1
2
3
4
5

1
1
1
1
1