Option Explicit
 
Private m_Parameter As String
 
Public Function Init( _
    ByRef rParameter As String _
  ) As Boolean
 
  If Len(rParameter) > 0 Then
    m_Parameter = rParameter
    Init = True
  Else
    Init = False
  End If
 
End Function

Option Explicit
 
Public Function CREATE_cTest( _
    ByRef rParameter As String _
  ) As cTest
 
  Set CREATE_cTest = New cTest
  If Not CREATE_cTest.Init(rParameter) Then
    Set CREATE_cTest = Nothing
  End If
 
End Function

Option Explicit
 
Private m_test As cTest
 
Private Sub Form_Load()
 
  Set m_test = CREATE_cTest("Test")
 
  Debug.Assert Not m_test Is Nothing
 
End Sub

Gruß
Dirk

--
?Get it right the first time