Option Explicit
Public Event MyEvent(myTxt As String)
Private mvarTxtEvent As String
Public Property Let txtEvent(ByVal vData As String)
    mvarTxtEvent = vData
End Property
Public Property Get txtEvent() As String
    txtEvent = mvarTxtEvent
End Property
Public Function Asl_Event()
 RaiseEvent MyEvent(Me.txtEvent)
End Function

Option Explicit
Dim oclsTstEvent As clsTstEvent
Private WithEvents EventHandler As clsTstEvent
 
Private Sub Command1_Click()
 Call oclsTstEvent.Asl_Event
End Sub
 
Private Sub EventHandler_MyEvent(myTxt As String)
 MsgBox (myTxt)
End Sub
 
Private Sub Form_Load()
 Set oclsTstEvent = New clsTstEvent
 oclsTstEvent.txtEvent = "EventMessages"
End Sub