Indtastning i tekstboks giver opslag i listeboks

Eksempel:
Tekstboks & Listbox er defineret som Microsoft Forms 2.0 controls via "Flere kontrolelementer" i værktøjskassen.

Option Compare Database
Private Sub Form_Open(Cancel As Integer)
Rem Sæt testData i ListBox
    ListBox4.AddItem ("and")
    ListBox4.AddItem ("andre")
    ListBox4.AddItem ("andres")
    ListBox4.AddItem ("andrik")
    ListBox4.AddItem ("bak")
    ListBox4.AddItem ("bakke")
    ListBox4.AddItem ("bakken")
    ListBox4.AddItem ("bakkesen")
    ListBox4.AddItem ("chr")
    ListBox4.AddItem ("christian")
    ListBox4.AddItem ("christiansborg")
    ListBox4.AddItem ("christianshavn")
End Sub
Private Sub Textbox5_Change()
Dim bogstav, f, linie, p
 
    bogstav = TextBox5
   
    For f = 0 To ListBox4.ListCount - 1
        linie = ListBox4.List(f)
       
        If LCase(bogstav) = Left(linie, Len(bogstav)) Then
            ListBox4.ListIndex = f
            Exit Sub
        End If
    Next f
End Sub