キーを数値で登録し、文字列で取り出そうとしているからでは？

以下のコードは VB6 ですが、数値の 1 と、文字列の "1" は別物になっています。 

Dim dic As Object

Set dic = CreateObject("Scripting.Dictionary")

dic.Add 1, "A"

dic.Add "1", "B"

Debug.Print dic(1)

Debug.Print dic("1")

結果

A

B

 

登録するとき、セルの値を CStr で文字列に変換し、キーとして利用すれば良さそうです。