GUI Program to demonstrate Linear search

Private Sub Command1_Click()
Dim item As String
item = InputBox("Enter the elements")
List1.AddItem (item)
End Sub

Private Sub Command2_Click()
List1.Clear
Text1.Text = " "
End Sub

Private Sub Command3_Click()
Dim key As String
Dim flag As String
Dim i As Integer
key = Text1.Text
flag = False
For i = 0 To List1.ListCount - 1
If key = List1.List(i) Then
flag = True
Exit For
End If
Next i
If flag = True Then
MsgBox "SUCCESSFULL SEARCH"
Else
MsgBox "UNSUCCESSFULL SEARCH"
End If
End Sub

Private Sub Command4_Click()
End
End Sub