Option Explicit
 
Private Type TDatos
  IDdocumento As Long
  Nombre As String
  Apellidos As String
End Type
private/public/global DatosCliente As TDatos ' //  Public y Global en un modulo .Bas los demas en general
 
Private Sub Form_Load()
    With DatosCliente
        .IDdocumento = 12
        .Apellidos = "Ortega A."
        .Nombre = "Miguel Angel"
    End With
 
    With DatosCliente
        Call Interaction.MsgBox(.IDdocumento)
        Call Interaction.MsgBox(.Apellidos)
        Call Interaction.MsgBox(.Nombre)
    End With
End Sub
 
 

 
Option Explicit
 
Private Type TDatos
  IDdocumento   As Long
  Nombre        As String
  Apellidos     As String
End Type
Private Priv_DatosCliente As TDatos ' //  Public y Global es un modulo .Bas los demas en general
'   //  Friend permite tener acceso a Typos de una clase o datos que no esten estandarisados!¡.
Friend Property Let Datoscliente(ByRef Datos As TDatos)
    Priv_DatosCliente = Datos
    Debug.Print "Guardando Datos"
End Property
Friend Property Get Datoscliente() As TDatos
    Datoscliente = Priv_DatosCliente
    Debug.Print "Leyendo Datos"
End Property
 
Private Sub Form_Load()
Dim LocalData As TDatos
    With LocalData
        .IDdocumento = 12
        .Apellidos = "Ortega A."
        .Nombre = "Miguel Angel"
    End With
    Datoscliente = LocalData
    With Datoscliente
        Call Interaction.MsgBox(.IDdocumento)
        Call Interaction.MsgBox(.Apellidos)
        Call Interaction.MsgBox(.Nombre)
    End With
End Sub