Everything you have so far looks correct. Here is the next step.
In the Click EventHandler you should cast the sender, like so:
Private Sub mi_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim mi As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
Dim text As String = mi.Tag
End Sub
Hope it helps :)