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