Public Event Foo(ByVal arg1 As Integer, ByVal arg2 As String)
Private Sub abc_Foo(ByVal arg1 As Integer, ByVal arg2 As String)
Dim test1 As Integer
test1 = 3
Dim test2 As String
test2 = "test"
RaiseEvent Foo("Hi!", 4)
RaiseEvent Foo(test1, test2)
End Sub