Option Explicit

Sub Main
    Dim theComServer As Object         
    Set theComServer = CreateObject("COMServer.ICOMServer")
    theComServer.DispHello
    theComServer.DispModelName roseApp.CurrentModel.GetObject()
    theComServer.DispApplicationName roseApp.GetObject()

    Dim aClass As Class
    Set aClass = roseApp.CurrentModel.RootCategory.AddClass("aClass")
    If aClass Is Nothing Then
        MsgBox "A class of that name already exist. (This message is not generated by the COM server!)"
    Else
        theComServer.DispClassName aClass.GetObject()
    End If
End Sub