This method combines adding a row to a Popup Menu control and setting the rowtag of that row
Public Sub AddRowWithTag(Extends Value As DesktopPopupMenu, Tag As Variant, Text As String)
Value.AddRow(Text)
Value.RowTagAt(Value.LastAddedRowIndex) = tag
End Sub