In your class module simply add a public Sub or Function like this:You'll then have to call the Init method:Code:Public Sub Init(ByVal arg1 As Long, ByVal arg2 As String) 'do whatever End SubCode:Dim obj As MyClassName Set obj = New MyClassName Call obj.Init(27, "Some string")




Reply With Quote