連想配列 (ID:90344)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 完全一致なら、単純に Dim ht As Hashtable = New Hashtable ht("japan") = "日本" ht("america") = "アメリカ" ht("america2") = "アメリカfg" ht("america3") = "アメリカss" ht("america4") = "アメリカgg" For Each de As DictionaryEntry In ht 'If CType(de.Value, String).IndexOf("アメリカ", 0) = 0 Then If de.Value = "アメリカ" Then MsgBox(de.Key) End If Next で、よろしいかと思います。