Tengo los siguientes valores y quiero agregarlos a una colección. Si los valores ya están en la colección, un mensaje debería mostrar "esto ya se agregó en su colección".

Dim OrdLines As New Collection

OrdLines.Add (111,this is first item)

OrdLines.Add (222,this is second item)

OrdLines.Add (333,this is third item)

OrdLines.Add (444,this is fourth item)

¿Cómo evito los valores duplicados en una colección?