Sub test_coll()
    Dim oc As New Collection
    Dim t As String
    t = "rteterterter"
    
    'удаление пройдет успешно, т.к. "4" является ключом коллекции
    oc.Add "1", "4"
    oc.Remove "4"
    'удаление вызовет ошибку, т.к. ключом коллекции является "two", а не t
    oc.Add t, "two"
    oc.Remove t
    'удаление вызовет ошибку, т.к. ключ и элемент совпдают, следовательно t является ключом
    oc.Add t, t
    oc.Remove t
End Sub