For i = 0 To UBound(allNames)
If TextBox1.Text = allNames(i) Then
Else
ReDim Preserve b(k)
b(k) = allNames(i)
k = k + 1
End If
Next
'ReDim allNames(j - 1)
'ReDim allNames(j + 1)
For i = 0 To UBound(b)
allNames(i) = b(i)
Next
把ReDim allNames(j - 1) ReDim allNames(j + 1) 都注释掉看看