Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
 
Dim Suchbegriff As String = TextBox1.Text
Dim itm As ListViewItem
 
itm = ItemFinden(Suchbegriff)
 
If Not itm Is Nothing Then
 Label3.Text = itm.Text
 Label4.Text = itm.SubItems(1).Text
 TextBox1.Text = Nothing
 MessageBox.Show("Der Suchbegriff wurde gefunden!")
Else
 Label3.Text = Nothing
 Label4.Text = Nothing
 MessageBox.Show("Der Suchbegriff wurde nicht gefunden!")
End If
 
End Sub
 
Private Function ItemFinden(ByVal Suchbegriff As String) As ListViewItem
 
Dim itm As ListViewItem
 
For Each itm In ListView1.Items
 If itm.Text = Suchbegriff Then
 Return itm
 Exit For
 End If
Next
End Function

EALA FREYA FRESENA