Private Sub mnuPopUpEntry2_Click()
  ' hier den Code
End Sub

Private Sub mnuPopUpEntry_Click(Index As Integer)
  Select Case Index
    Case 0
      ' hier den Code für Index 0 = 1. Eintrag
    Case 1
      ' hier den Code für Index 1 = 2. Eintrag
    Case 2
      ' hier den Code für Index 2 = 3. Eintrag
  End Select
End Sub

Gruß
Marcus