Private Sub cm_goto_forum_items_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
  Dim MyMenu as MenuItem = Sender as MenuItem
  If Not IsNoting( MyMenu ) Then
    ' Nun Steht in MyMenu.Text der von Dir eingefügte Text, diese hybdic( 
    ' "forum" & i)("subject")
  End If
End Sub