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