AddWord Function

This code is used to test the AddWord Function


Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bSuccess As Boolean
bSuccess = AddWord(TextBox1.Text)
MsgBox(bSuccess)
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
End Class