Динамическое меню без формы

Option Explicit
Private pr_Action As String
Private pr_ActionIndex As Integer
 
Private Sub Activate(ActionsString As String)
    Dim tmpArray As Variant
    Dim i As Integer
    Dim menuCount As Integer
        ClearMenu
        tmpArray = Split(ActionsString, ';')
        menuCount = mnuPopupSub.LBound
        mnuPopupSub(menuCount).Caption = tmpArray(LBound(tmpArray))
        mnuPopupSub(menuCount).Tag = tmpArray(LBound(tmpArray))
        mnuPopupSub(menuCount).Visible = True
        menuCount = menuCount + 1
        For i = LBound(tmpArray) + 1 To UBound(tmpArray)
            Load mnuPopupSub(menuCount)
            mnuPopupSub(menuCount).Caption = tmpArray(i)
            mnuPopupSub(menuCount).Tag = tmpArray(i)
            mnuPopupSub(menuCount).Visible = True
            menuCount = menuCount + 1
        Next
        pr_ActionIndex = -1
        pr_Action = ''
        UserControl.PopupMenu mnuPopup, vbPopupMenuLeftAlign
End Sub
 
Private Sub MnuPopupSub_Click(Index As Integer)
        pr_Action = mnuPopupSub(Index).Tag
        pr_ActionIndex = Index
End Sub
 
Public Property Get GetAction(ActionsString As String) As String
        Activate ActionsString
        GetAction = pr_Action
End Property
 
Public Property Get GetActionIndex(ActionsString As String) As String
        Activate ActionsString
        GetActionIndex = pr_ActionIndex
End Property
 
Private Sub ClearMenu()
    Dim i As Long
        For i = mnuPopupSub.LBound + 1 To mnuPopupSub.UBound
            Unload mnuPopupSub(i)
        Next
End Sub