title: Scripting Dictionary Function
body: <p>I am currently trying to do a function using Scripting Dictionary Object.However, it doesn't seems to work.I am new to Scripting Dictionary Object.  The function is suppose to check if the number in the cell is 1,9,17 or 25. If it is 1,9,17 or 25, it will return 'True' else it will return 'False'. The function only returns False despite having those numbers. </p>
  
  <pre><code>Function checkNuminList(r As Integer)
  Dim myList As Object
  Set myList = CreateObject("Scripting.Dictionary")
  myList.Add Key:="Num1", Item:="1"
  myList.Add Key:="Num2", Item:="9"
  myList.Add Key:="Num3", Item:="17"
  myList.Add Key:="Num4", Item:="25"
  If myList.Exists(r) Then
  checkNuminList = "True"
  Else
  checkNuminList = "False"
  End If
  End Function
  </code></pre>