Private Sub lsvListView_DblClick()
  Dim i As Long
  'Debug.Print dbChar
  If Me.lsvListView.MultiSelect = fales Then
    ' Das ist der markierte Eintrag
    Debug.Print Me.lsvListView.SelectedItem.Text
  Else
    ' all diese ListItems sind markiert.
    For i = 1 To Me.lsvListView.ListItems.Count
      If Me.lsvListView.ListItems(i).Selected Then
        Debug.Print "Selektiert: " & Me.lsvListView.ListItems(i).Text
      End If
    Next i
  End If
End Sub