to prevent duplicates

(by.Lily)
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Function addword(ByVal skey As String) As Boolean On Error Resume Next Static col As New Collection col.add("", skey) If Err.Number <> 0 Then Return False Else Return (True) End If End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(addword(TextBox1.Text)) End SubEnd Class