Option Explicit
'Una solución muy simple...
'Guardar los datos en un archivo
'y luego tomarlos desde ahí...
'El código muestra muy 'ligeramente'
'como guardar los datos a partir de
'los Label del formulario UserForm1
'Obviamente es mejorable! lo hice
'sólo para dar una idea... ;-)
Private Sub CommandButton1_Click()
Dim lab As Object, hFile%, sFileName$
'Nombre completo del archivo temporal
'utilizado para la transferencia de los datos
sFileName = ActiveWorkbook.Path & Application.PathSeparator & "~tmp~.txt"
hFile = FreeFile
Open sFileName For Output Access Write As #hFile
'Recorre todos los controles del formulario
'y guarda sólo los indicados por la propiedad Tag
For Each lab In UserForm1.Controls
If lab.Tag <> "" Then
Print #hFile, lab.Caption
End If
Next
Close #hFile
Set lab = Nothing
End Sub
'Saludos desde Baires, JuanC