You need to check if the item is a MenuItem
:
For Each i In cm.Items
If TypeOf i Is MenuItem Then
Dim mi = CType(i, MenuItem)
If CType(mi.Tag, String) = "SomeTag" Then
mi.IsEnabled = IsEnabled()
End If
End If
Next mi