Markere linie i ListBox.

F.eks.:

Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1

Dit forslag markerer den sidste linie i ListBoxen.
Det kan jeg ikke bruge.
Jeg har et ord i en streng, som optræder et eller andet sted i ListBoxen. Så vil jeg finde og markere ordet i ListBoxen.

Hvorledes kan jeg læse linierne i ListBoxen en efter en ?

Noget i retning af:
 
  Dim Streng(100) As String
  For A = 0 To ListBox.ListCount - 1
      Streng(A) = ???????????? 
  Next A

Private Sub UserForm_activate()
    Me.ListBox1.AddItem "AAA"
    Me.ListBox1.AddItem "BBB"
    Me.ListBox1.AddItem "CCC"
   
    test "BBB"
End Sub
Private Sub test(ordet)
    With Me.ListBox1
        For f = 0 To .ListCount - 1
            If .List(f) = ordet Then
                .ListIndex = f
                Exit Sub
            End If
        Next f
    End With
End Sub

Hvad er UserForm. Jeg kan ikke få den til at køre.
Når jeg omdøber den til Form vil VB Ikke accepter .ListCount - 1.
Kan du forklare det nærmere ?

Du skal nødvendigvis ikke anvende UserForm.activate - det var blot en del af koden for at opbygge data i listboxen.

Det primære er SUB test, hvor ordet bliver "fundet" og det aktuelle element i ListBoxen markeret.

Så virker din rutine perfekt. Tak for den. Send et svar.

Fint - selv tak