Dim myItem As ListViewItem
        For Each myItem In ListView1.Items
            Debug.WriteLine(myItem.SubItems(2).Text)
            If InStr(myItem.SubItems(2).Text, txtName.Text) Then
                With ListView1
                    .Focus()
                    .TopItem = myItem   'oberstes Item festlegen
                    .Items(myItem.Index).Focused = True
                    .Items(myItem.Index).Selected = True
                End With
                Exit For ' Schleife verlassen
            End If
        Next