'Vergleich von Listeneinträgen auf Übereinstimmung in ersten Zeichen
'compKrit- Vergleichsart (wie bei Instr)
Public Function compStringsList(theList As ListBox, Optional compKrit = _
  vbBinaryCompare) As Long
    Dim firstBeg$, firstChar$, nextBeg$, I&, anz&
    theList.ListIndex = 0
    firstBeg = theList.List(theList.ListIndex)
    firstChar = Left(firstBeg, 1)
    If compKrit = vbTextCompare Then
        firstBeg = LCase(firstBeg)
        firstChar = LCase(firstChar)
    End If
    For I = 1 To theList.ListCount - 1
        theList.ListIndex = I
        nextBeg = theList.List(theList.ListIndex)
        If compKrit = vbTextCompare Then nextBeg = LCase(nextBeg)
        If Left(nextBeg, 1) <> firstChar Then Exit For
        anz = compStringsLeft(firstBeg, nextBeg)
        If anz = 0 Then Exit For
    Next I
    compStringsList = anz
End Function
 
' Vergleich zweier Strings auf Übereinstimmung der ersten Zeichen
' Rückgabe: Anzahl der übereinstimmenden Zeichen
Public Function compStringsLeft(t1 As String, t2 As String) As Long
    Dim ST&, I&
    ST = 1
    For I = 1 To Len(t1)
        tz1 = Left(t1, ST)
        tz2 = Left(t2, ST)
        If tz1 <> tz2 Then Exit For
        ST = ST + 1
    Next I
    compStringsLeft = ST - 1
End Function

Salzburger