Dim mvarUsuario as String;
Dim mvarContraseña as String;
Dim mvarNombre as String;
Private Sub VariablesAVector(vVector() As Variant)
ReDim vVector(0 To (TUsu.Ultimo - 1))
vVector(TUsu.Usuari) = mvarUsuario
vVector(TUsu.Contraseña) = mvarContraseña
vVector(TUsu.Nombre) = mvarNombre
End Sub
Private Sub VectoraVariables(vVector())
mvarUsuario = vVector(TUsu.Usuari)
mvarContraseña = vVector(TUsu.Contraseña)
mvarNombre = vVector(TUsu.Nombre) =
End Sub