Was du brauchst ist ein Array.
Lege im Menu-Editor ein Untermenü (hier mnuTestKind) an. Setze die Index-Eigenschaft (links unten) auf 0.
Form-Code:
Private Sub Form\_Load()
Dim i As Long
For i = 1 To 5
Load mnuTestKind(i)
mnuTestKind(i).Tag = "was du willst " & i 'Speicherplatz für beliebige Daten
mnuTestKind(i).Caption = "neu " & i
Next
End Sub
'
Private Sub mnuTestKind\_Click(Index As Integer)
MsgBox mnuTestKind(Index).Caption & " Index: " & Index & " / Tag: " & mnuTestKind(Index).Tag
End Sub