VB Quicktakes - Check Key

This function checks to see if a specific string is a valid key for a collection

Public Function Exists(colSearch As Collection, strKeystring As String) As Boolean
On Error GoTo err_handler
   Dim vntTemp As Variant
   vntTemp = colSearch(strKeystring)
   Exists = True
Exit Function
err_handler:
End Function