I need help regarding my Visual Basic lab Can you please find my mistake why must button Search for the value >= just display only one value in the output listbox. So the program module is Search by Minimum Value button click event This event must validate that information does exist in the input listbox (IstCollectables) and the user has entered a numeric value into the Value textbox (txtValue). If the input is value, IstCollectables should be search and all item with a value greater than or equal to the given value should be listed in the output list box (lstDisplay). Note: the output should be formatted for readability. If not records are found to meet the given criteria, a message should be displayed in IstDisplay to inform user

Public Class Frmlabreview

Private Sub a_Click(sender As Object, e As EventArgs) Handles a.Click

Dim item As String

Dim value As Decimal

Do

item = CStr(InputBox("Enter item description or -1 to stop "))

If item "-1" Then

value = InputBox("Enter the value of a item:")

lstCollectable.Items.Add(item & "," & value)

End If

Loop Until item = "-1"

End Sub

Function DataExist() As Boolean

If lstCollectable.Items.Count

MessageBox.Show("The event required the information on the list box")

lstCollectable.Focus()

Return False

End If

Return True

End Function

Function ItemOk() As Boolean

If txtitem.Text = "" Then

MessageBox.Show("The event required you to enter the item in the text box")

txtitem.Focus()

Return False

End If

Return True

End Function

Function ValueOk() As Boolean

If txtvalue.Text = "" And (IsNumeric(txtvalue.Text)) Then

MessageBox.Show("The event required you to enter valid value")

Return False

End If

Return True

End Function

Sub GetIteam(ByRef item As String)

item = txtitem.Text

End Sub

Sub GetValue(ByVal value As Decimal)

value = txtvalue.Text

End Sub

Sub DissectLine(ByVal line As String, ByRef item As String, ByRef value As Decimal)

Dim comma As String

comma = line.IndexOf(",")

item = line.Substring(0, comma)

value = line.Substring(comma + 1).Trim()

End Sub

Private Sub btnsearchgreater_Click(sender As Object, e As EventArgs) Handles btnsearchgreater.Click

If ValueOk() = False Then

Return

End If

Dim item As String

Dim value As Decimal

Dim line As String

Dim found As Boolean = False

Dim SearchItem As String

Dim graterValue

GetValue(value)

SearchItem = value

For i As Integer = 0 To lstCollectable.Items.Count - 1

line = CStr(lstCollectable.Items(i))

DissectLine(line, item, value)

If value >= SearchItem Then

found = True

End If

Next

If found = True Then

lstdisplay.Items.Clear()

lstdisplay.Items.Add("The value that are greater than the input value are:")

lstdisplay.Items.Add(value)

Else

MessageBox.Show("No greater Value Found")

End If

End Sub

End Class

Working with ListBoxes IstCollectable Populate Collectable Search For Item Search For Value Search for Value Item: Value: Istdisplay Clear Form Exit