Dim clickedLabel as Label
 
Private Sub lbl(Index as Integer)
Set clickedLabel = lbl(Index)
PopupMenu MENUNAME, vbPopUpMenuAlignRight            ' oder halt was anderes
End Sub
 
Private Sub TestMenu(Index as Integer)
clickedLabel.Caption = TestMenu(Index).Caption
End Sub