こういうのが合った場合、 set dic = createobject("scripting.dictionary") for i = 0 to 10 dic(i) = "あいうえ" '数値をキーにして格納 next i = inputbox(msg) 'ここでiは文字列になる result = dic(i) 'ヒットしない。しかも、ここで件数が１つ増える（…