Dim count As Integer = 0
        Dim LastString As String = ""
 
 
        For Each lvi As ListViewItem In Me.ListView1.Items
            If lvi.Text.Contains(Me.TextBox3.Text) Then
                count += 1
                LastString = lvi.Text
            End If
        Next
 
        If count = 1 Then
            MessageBox.Show("Es wurde ein Eintrag gefunden")
        ElseIf count > 1 Then
            MessageBox.Show("Es wurden " & count.ToString & " Einträge" & _
              "gefunden")
        Else
            MessageBox.Show("Kein Eintrag gefunden")
        End If
 
        For Each lvi As ListViewItem In Me.ListView1.Items
 
            If lvi.Text.Contains(Me.TextBox3.Text) Then
                LastString = lvi.Text
                lvi.Selected = True
                Dim DialogResult As DialogResult = MessageBox.Show("Eintrag:" & _
                  vbCrLf & LastString, "Eintrag" & CInt(lvi.Index + 1), _
                  MessageBoxButtons.OKCancel)
 
                If DialogResult = Windows.Forms.DialogResult.OK Then
                    Exit Sub
                End If
                lvi.EnsureVisible()
 
            End If
        Next

fg viperbone