Ma l'hai provato il codice che ti ho postato?!?!? Prova questo:
codice:
Private Sub Command1_Click()
Dim matr() As String
lettera = cstr(combo1.text)
cont = 0
For i = 0 To List1.ListCount - 1
    If LCase(lettera) = LCase(Left(List1.List(i), 1)) Then
        ReDim Preserve matr(cont)
            matr(cont) = List1.List(i)
            cont = cont + 1
    End If
Next i
If UBound(matr) <> 0 Then
List1.Clear
    For i = 0 To UBound(matr)
        List1.AddItem matr(i)
    Next i
End If
End Sub
Mi raccomando, provalo!!!!

ciao