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
                For subitems As Integer = 1 To lvi.SubItems.Count - 1
                    If lvi.SubItems.Item(subitems).Text.ToLower.Contains( _
                      Me.TextBox3.Text) Then
                        count += 1
                    End If
                Next
            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, "Zeile " & CInt(lvi.Index + 1), _
                  MessageBoxButtons.OKCancel)
 
                If DialogResult = Windows.Forms.DialogResult.OK Then
                    Exit Sub
                End If
                lvi.EnsureVisible()
 
                For subitems As Integer = 1 To lvi.SubItems.Count - 1
                    If lvi.SubItems.Item(subitems).Text.ToLower.Contains( _
                      Me.TextBox3.Text) Then
                        lvi.Selected = True
                        LastString = lvi.SubItems(subitems).Text
                        Dim DialogResult1 As DialogResult = MessageBox.Show( _
                          "Eintrag: " & vbCrLf & LastString, "Zeile " & CInt( _
                          lvi.Index + 1) & " Spalte " & CInt(subitems + _
                          1).ToString, MessageBoxButtons.OKCancel)
 
                        If DialogResult1 = Windows.Forms.DialogResult.OK Then
                            Exit Sub
                        End If
                        lvi.EnsureVisible()
                    End If
                Next
 
            End If
        Next

fg viperbone