instr Is this my best option?

I have a dataset that has an alloy catalog with each alloy in its own row. In another table I have a memo field called alloy that holds all the alloys someone has picked space delimited Example:  Aluminum-Copper (200 series)  Aluminum-Silicon (300 series) Aluminum-Magnesium (500 Series)           Magnesium. An end user picks Aluminum-Magnesium (500 Series) and then saves the record. I use the below code to check mark the alloys found in dsMetal.Tables("Metal").Rows(0).Item("Alloy").ToString. Out of all of the Alloys I have the only one that is giving me an issue is the Aluminum-Magnesium (500 Series) and Magnesium. If they choose Aluminum-Magnesium (500 Series) save the record and the code does the compare it will also check mark Magnesium every time. Is there a better way to check if the entire string is in the space delimited field?

For iCount = 0 To dsAlloy.Alloy_Catalog.Count - 1
                    myPos = InStr(1, dsMetal.Tables("Metal").Rows(0).Item("Alloy").ToString, dsAlloy.Tables("Alloy_Catalog").Rows(iCount).Item("Alloy").ToString, CompareMethod.Text)
                    If myPos <> 0 Then
                        Select Case dsAlloy.Tables("Alloy_Catalog").Rows(iCount).Item("Alloy").ToString()
                            Case "Aluminum (100 series)"
                                ckAluminum100series.Checked = True
                            Case "Aluminum-Copper (200 series)"
                                ckAluminumCopper200series.Checked = True
                            Case "Aluminum-Silicon (300 series)"
                                ckAluminumSilicon300series.Checked = True
                            Case "Aluminum-Silicon (400 series)"
                                ckAluminumSilicon400series.Checked = True
                            Case "Aluminum-Magnesium (500 Series)"
                                ckAluminumMagnesium500Series.Checked = True
                            Case "Aluminum Alloy (700 series)"
                                ckAluminumAlloy700series.Checked = True
                            Case "Aluminum Alloy (800 series)"
                                ckAluminumAlloy800series.Checked = True
                            Case "Other Aluminum"
                                ckOtherAluminum.Checked = True
                            Case "Cobalt-Base"
                                ckCobaltBase.Checked = True
                            Case "High Copper Alloys"
                                ckHighCopperAlloys.Checked = True
                            Case "Other Copper Base Alloys"
                                ckOtherCopperBaseAlloys.Checked = True
                            Case "Abrasion Resistant Iron"
                                ckAbrasionResistantIron.Checked = True
                            Case "Austempered Ductile Iron"
                                ckAustemperedDuctileIron.Checked = True
                            Case "Compacted Graphite Iron"
                                ckCompactedGraphiteIron.Checked = True
                            Case "Corrosion Resistant Iron"
                                ckCorrosionResistantIron.Checked = True
                            Case "Ductile Iron"
                                ckDuctileIron.Checked = True
                            Case "Gray Iron"
                                ckGrayIron.Checked = True
                            Case "Heat Resistant Iron"
                                ckHeatResistantIron.Checked = True
                            Case "Malleable Iron"
                                ckMalleableIron.Checked = True
                            Case "Other Cast Irons"
                                ckOtherCastIrons.Checked = True
                            Case "Lead"
                                ckLead.Checked = True
                            Case "Magnesium"
                                ckMagnesium.Checked = True
                            Case "Mn/Al-Si Bronze + Cu-Ni Alloys"
                                ckMnAlSiBronzeCuNiAlloys.Checked = True
                            Case "Nickel-Base"
                                ckNickelBase.Checked = True
                            Case "Other Nonferrous"
                                ckOtherNonferrous.Checked = True
                            Case "Red/Yellow Brass/Tin-Bronze"
                                ckRedYellowBrassTinBronze.Checked = True
                            Case "Carbon Steels"
                                ckCarbonSteels.Checked = True
                            Case "Corrosion Resistant Steels"
                                ckCorrosionResistantSteels.Checked = True
                            Case "Heat Resistant Steels"
                                ckHeatResistantSteels.Checked = True
                            Case "Low Alloy Steels"
                                ckLowAlloySteels.Checked = True
                            Case "Manganese Steels"
                                ckManganeseSteels.Checked = True
                            Case "Other Cast Steel"
                                ckOtherCastSteel.Checked = True
                            Case "Superalloys"
                                ckSuperalloys.Checked = True
                            Case "Titanium"
                                ckTitanium.Checked = True
                            Case "Zinc-Base"
                                ckZincBase.Checked = True
                        End Select
                    End If
                Next