Private Sub Ident_Change()
Dim tablores()
Dim i As Integer, x As Integer
For i = 0 To UBound(tablo)
If Mid(tablo(i, 0), 1, Len(Ident)) = Ident Then
x = x + 1
ReDim Preserve tablores(1 To 3, 1 To x)
tablores(1, x) = tablo(i, 0)
tablores(2, x) = tablo(i, 1)
tablores(3, x) = tablo(i, 2)
End If
Next i
If Not x = 0 Then
ListBox2.Clear
ListBox2.Column = tablores
End If
End Sub