Simple form used to input 2 strings (key & value), to be stored in Dictionary (dictLocations)which is instantiated in Module1. Works fine until user clicks yes in message box, then get Error 457 (duplicate key)???

Thanks for anyone's help!


private Sub cmdOK_Click()
Dim key as string, val as string
dictLocations.Add tbLocNo, tbLocDesc
If MsgBox("Add Another Location?", vbYesNo) = vbYes then

me.Hide
tbLocNo = ""
tbLocDesc = ""
me.Show

else

me.Hide
End If
Unload.me
End Sub