Option Explicit
'Private Member-Variable für den zustand der Property
Private m_Vorname As String
 
'Public Property zum setzen der eigenschaft
Public Property Let Vorname(Value As String)
   m_Vorname = Value
End Property
 
'Hier nur privat, weil ich nichts geändertes zurückgeben möchte, ansonsten auch 
' Public
Private Property Get Vorname() As String
   Vorname = m_Vorname
End Property
 
Private Sub Form_Load()
   MsgBox "Vorname : " & m_Vorname
End Sub

Option Explicit
 
Private Sub Irgendwas
  'Das setzen der Property führt nicht zum impliziten Form_Load oder 
  ' Form_Initialize derf   Form
   Form2.Vorname = "tester"
  'Jetzt wird bei Form2 das Form_Load ausgelöst und es kann auf die Props 
  ' zurückgegriffen werden
   Load Form2
End Sub